Almathera Ten Pack 1: Comms & Networking

home *** CD-ROM | disk | FTP | other *** search

/ Almathera Ten Pack 1: Comms & Networking / Almathera Ten on Ten - Disc 1: Comms & Networking.iso / amiga-useful / perl / src / perly.tab.c < prev next >

Wrap

C/C++ Source or Header | 1995-05-04 | 115KB | 2,980 lines

/* A Bison parser, made from perly.y */ #define YYBISON 1 /* Identify Bison output. */ #define WORD 258 #define LABEL 259 #define APPEND 260 #define OPEN 261 #define SSELECT 262 #define LOOPEX 263 #define DOTDOT 264 #define USING 265 #define FORMAT 266 #define DO 267 #define SHIFT 268 #define PUSH 269 #define POP 270 #define LVALFUN 271 #define WHILE 272 #define UNTIL 273 #define IF 274 #define UNLESS 275 #define ELSE 276 #define ELSIF 277 #define CONTINUE 278 #define SPLIT 279 #define FLIST 280 #define FOR 281 #define FILOP 282 #define FILOP2 283 #define FILOP3 284 #define FILOP4 285 #define FILOP22 286 #define FILOP25 287 #define FUNC0 288 #define FUNC1 289 #define FUNC2 290 #define FUNC2x 291 #define FUNC3 292 #define FUNC4 293 #define FUNC5 294 #define HSHFUN 295 #define HSHFUN3 296 #define FLIST2 297 #define SUB 298 #define FILETEST 299 #define LOCAL 300 #define DELETE 301 #define RELOP 302 #define EQOP 303 #define MULOP 304 #define ADDOP 305 #define PACKAGE 306 #define AMPER 307 #define FORMLIST 308 #define REG 309 #define ARYLEN 310 #define ARY 311 #define HSH 312 #define STAR 313 #define SUBST 314 #define PATTERN 315 #define RSTRING 316 #define TRANS 317 #define LISTOP 318 #define OROR 319 #define ANDAND 320 #define UNIOP 321 #define LS 322 #define RS 323 #define MATCH 324 #define NMATCH 325 #define UMINUS 326 #define POW 327 #define INC 328 #define DEC 329 #line 36 "perly.y" #include "INTERN.h" #include "perl.h" /*SUPPRESS 530*/ /*SUPPRESS 593*/ /*SUPPRESS 595*/ STAB *scrstab; ARG *arg4; /* rarely used arguments to make_op() */ ARG *arg5; #line 52 "perly.y" typedef union { int ival; char *cval; ARG *arg; CMD *cmdval; struct compcmd compval; STAB *stabval; FCMD *formval; } YYSTYPE; #ifndef YYLTYPE typedef struct yyltype { int timestamp; int first_line; int first_column; int last_line; int last_column; char *text; } yyltype; #define YYLTYPE yyltype #endif #include <stdio.h> #ifndef __STDC__ #define const #endif #define YYFINAL 423 #define YYFLAG -32768 #define YYNTBASE 93 #define YYTRANSLATE(x) ((unsigned)(x) <= 329 ? yytranslate[x] : 122) static const char yytranslate[] = { 0, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 80, 2, 2, 2, 2, 74, 2, 86, 4, 2, 90, 66, 89, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 69, 88, 2, 67, 2, 68, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 91, 2, 92, 73, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 3, 72, 87, 81, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 1, 2, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 70, 71, 75, 76, 77, 78, 79, 82, 83, 84, 85 }; static const short yyprhs[] = { 0, 0, 1, 4, 8, 11, 12, 15, 21, 26, 27, 28, 31, 33, 36, 38, 41, 45, 47, 49, 53, 57, 61, 65, 71, 77, 81, 85, 92, 99, 104, 109, 117, 124, 135, 138, 139, 141, 142, 144, 145, 147, 149, 151, 153, 158, 162, 166, 170, 173, 177, 179, 182, 186, 191, 196, 201, 206, 211, 216, 221, 226, 230, 234, 238, 242, 246, 250, 254, 258, 262, 266, 270, 274, 278, 284, 288, 292, 294, 297, 300, 303, 306, 309, 312, 315, 318, 321, 324, 326, 331, 335, 338, 341, 344, 346, 348, 353, 355, 357, 363, 370, 376, 381, 387, 394, 403, 405, 407, 409, 411, 413, 419, 425, 430, 435, 438, 444, 450, 455, 460, 463, 465, 468, 470, 473, 476, 478, 481, 486, 494, 497, 502, 508, 513, 516, 519, 523, 525, 531, 538, 545, 553, 563, 570, 573, 578, 581, 586, 588, 590, 597, 603, 608, 614, 619, 622, 624, 626, 630, 634, 639, 645, 651, 658, 665, 673, 682, 687, 690, 697, 699, 701, 703, 706, 709, 713, 717, 721, 723, 725, 727, 729, 731, 733, 736, 738 }; static const short yyrhs[] = { -1, 94, 99, 0, 97, 25, 97, 0, 97, 96, 0, 0, 23, 97, 0, 24, 86, 112, 4, 95, 0, 3, 98, 99, 87, 0, 0, 0, 99, 100, 0, 107, 0, 106, 102, 0, 103, 0, 106, 88, 0, 106, 101, 88, 0, 1, 0, 112, 0, 112, 21, 112, 0, 112, 22, 112, 0, 112, 19, 112, 0, 112, 20, 112, 0, 21, 86, 112, 4, 95, 0, 22, 86, 112, 4, 95, 0, 21, 97, 95, 0, 22, 97, 95, 0, 106, 19, 86, 105, 4, 95, 0, 106, 20, 86, 112, 4, 95, 0, 106, 19, 97, 95, 0, 106, 20, 97, 95, 0, 106, 28, 56, 86, 112, 120, 95, 0, 106, 28, 86, 112, 120, 95, 0, 106, 28, 86, 104, 88, 105, 88, 104, 4, 97, 0, 106, 95, 0, 0, 101, 0, 0, 112, 0, 0, 6, 0, 108, 0, 109, 0, 110, 0, 13, 5, 67, 55, 0, 13, 67, 55, 0, 45, 5, 97, 0, 53, 5, 88, 0, 66, 112, 0, 112, 66, 114, 0, 114, 0, 66, 114, 0, 114, 67, 114, 0, 114, 83, 67, 114, 0, 114, 51, 67, 114, 0, 114, 52, 67, 114, 0, 114, 76, 67, 114, 0, 114, 77, 67, 114, 0, 114, 74, 67, 114, 0, 114, 73, 67, 114, 0, 114, 72, 67, 114, 0, 114, 83, 114, 0, 114, 51, 114, 0, 114, 52, 114, 0, 114, 76, 114, 0, 114, 77, 114, 0, 114, 49, 114, 0, 114, 50, 114, 0, 114, 74, 114, 0, 114, 73, 114, 0, 114, 72, 114, 0, 114, 11, 114, 0, 114, 71, 114, 0, 114, 70, 114, 0, 114, 68, 114, 69, 114, 0, 114, 78, 114, 0, 114, 79, 114, 0, 115, 0, 89, 115, 0, 90, 115, 0, 80, 115, 0, 81, 115, 0, 115, 84, 0, 115, 85, 0, 84, 115, 0, 85, 115, 0, 46, 5, 0, 46, 114, 0, 46, 0, 47, 86, 112, 120, 0, 86, 112, 120, 0, 86, 4, 0, 14, 114, 0, 14, 97, 0, 56, 0, 60, 0, 56, 91, 112, 92, 0, 59, 0, 58, 0, 56, 3, 112, 88, 87, 0, 86, 112, 120, 91, 112, 92, 0, 86, 4, 91, 112, 92, 0, 58, 91, 112, 92, 0, 58, 3, 112, 88, 87, 0, 48, 56, 3, 112, 88, 87, 0, 48, 86, 56, 3, 112, 88, 87, 4, 0, 57, 0, 63, 0, 62, 0, 61, 0, 64, 0, 14, 5, 86, 112, 120, 0, 54, 5, 86, 112, 120, 0, 14, 5, 86, 4, 0, 54, 5, 86, 4, 0, 54, 5, 0, 14, 56, 86, 112, 120, 0, 54, 56, 86, 112, 120, 0, 14, 56, 86, 4, 0, 54, 56, 86, 4, 0, 54, 56, 0, 10, 0, 10, 5, 0, 75, 0, 75, 97, 0, 75, 114, 0, 9, 0, 9, 5, 0, 9, 86, 117, 4, 0, 9, 86, 114, 113, 113, 113, 4, 0, 8, 5, 0, 8, 86, 5, 4, 0, 8, 86, 117, 111, 4, 0, 29, 86, 117, 4, 0, 29, 5, 0, 29, 56, 0, 29, 86, 4, 0, 29, 0, 30, 86, 117, 111, 4, 0, 31, 86, 117, 113, 111, 4, 0, 33, 86, 117, 66, 117, 4, 0, 32, 86, 117, 113, 113, 111, 4, 0, 34, 86, 117, 66, 117, 113, 113, 111, 4, 0, 16, 86, 118, 66, 112, 120, 0, 17, 118, 0, 17, 86, 118, 4, 0, 15, 118, 0, 15, 86, 118, 4, 0, 15, 0, 26, 0, 26, 86, 114, 113, 113, 4, 0, 26, 86, 114, 113, 4, 0, 26, 86, 114, 4, 0, 44, 86, 114, 111, 4, 0, 27, 86, 112, 120, 0, 18, 114, 0, 18, 0, 35, 0, 35, 86, 4, 0, 36, 86, 4, 0, 36, 86, 112, 4, 0, 37, 86, 114, 111, 4, 0, 38, 86, 114, 113, 4, 0, 38, 86, 114, 113, 111, 4, 0, 39, 86, 114, 113, 111, 4, 0, 40, 86, 114, 113, 113, 111, 4, 0, 41, 86, 114, 113, 113, 113, 111, 4, 0, 42, 86, 119, 4, 0, 42, 119, 0, 43, 86, 119, 113, 111, 4, 0, 121, 0, 116, 0, 65, 0, 65, 112, 0, 65, 5, 0, 65, 5, 112, 0, 65, 56, 112, 0, 65, 97, 112, 0, 5, 0, 114, 0, 5, 0, 58, 0, 5, 0, 59, 0, 66, 4, 0, 4, 0, 5, 0 }; #if YYDEBUG != 0 static const short yyrline[] = { 0, 108, 116, 122, 124, 128, 130, 132, 137, 146, 150, 152, 156, 158, 160, 161, 171, 176, 178, 180, 183, 186, 189, 194, 197, 200, 203, 208, 212, 216, 220, 224, 263, 290, 297, 301, 303, 306, 308, 311, 313, 316, 318, 320, 324, 332, 336, 343, 364, 368, 370, 373, 377, 384, 386, 388, 390, 392, 394, 396, 398, 402, 404, 413, 415, 417, 419, 421, 423, 425, 427, 429, 433, 435, 437, 439, 441, 443, 447, 449, 451, 453, 455, 458, 461, 464, 467, 474, 477, 483, 487, 489, 491, 494, 496, 498, 500, 503, 507, 511, 517, 522, 527, 532, 538, 544, 550, 552, 554, 556, 558, 560, 566, 571, 578, 585, 592, 598, 603, 609, 614, 619, 621, 624, 626, 628, 630, 632, 638, 640, 643, 650, 657, 661, 665, 670, 674, 678, 681, 683, 685, 687, 689, 692, 697, 699, 701, 703, 705, 710, 720, 723, 726, 730, 735, 740, 743, 747, 749, 751, 753, 755, 759, 763, 767, 769, 772, 775, 780, 785, 787, 788, 791, 796, 801, 808, 813, 818, 825, 828, 831, 834, 838, 841, 845, 847, 856 }; static const char * const yytname[] = { "$","error","$illegal.","'{'","')'", "WORD","LABEL","APPEND","OPEN","SSELECT","LOOPEX","DOTDOT","USING","FORMAT", "DO","SHIFT","PUSH","POP","LVALFUN","WHILE","UNTIL","IF","UNLESS","ELSE","ELSIF", "CONTINUE","SPLIT","FLIST","FOR","FILOP","FILOP2","FILOP3","FILOP4","FILOP22", "FILOP25","FUNC0","FUNC1","FUNC2","FUNC2x","FUNC3","FUNC4","FUNC5","HSHFUN", "HSHFUN3","FLIST2","SUB","FILETEST","LOCAL","DELETE","RELOP","EQOP","MULOP", "ADDOP","PACKAGE","AMPER","FORMLIST","REG","ARYLEN","ARY","HSH","STAR","SUBST", "PATTERN","RSTRING","TRANS","LISTOP","','","'='","'?'","':'","OROR","ANDAND", "'|'","'^'","'&'","UNIOP","LS","RS","MATCH","NMATCH","'!'","'~'","UMINUS","POW", "INC","DEC","'('","'}'","';'","'-'","'+'","'['","']'","prog","@1","compblock", "else","block","remember","lineseq","line","sideff","cond","loop","nexpr","texpr", "label","decl","format","subrout","package","cexpr","expr","csexpr","sexpr", "term","listop","handle","aryword","hshword","crp","bareword","" }; #endif static const short yyr1[] = { 0, 94, 93, 95, 95, 96, 96, 96, 97, 98, 99, 99, 100, 100, 100, 100, 100, 101, 101, 101, 101, 101, 101, 102, 102, 102, 102, 103, 103, 103, 103, 103, 103, 103, 103, 104, 104, 105, 105, 106, 106, 107, 107, 107, 108, 108, 109, 110, 111, 112, 112, 113, 114, 114, 114, 114, 114, 114, 114, 114, 114, 114, 114, 114, 114, 114, 114, 114, 114, 114, 114, 114, 114, 114, 114, 114, 114, 114, 115, 115, 115, 115, 115, 115, 115, 115, 115, 115, 115, 115, 115, 115, 115, 115, 115, 115, 115, 115, 115, 115, 115, 115, 115, 115, 115, 115, 115, 115, 115, 115, 115, 115, 115, 115, 115, 115, 115, 115, 115, 115, 115, 115, 115, 115, 115, 115, 115, 115, 115, 115, 115, 115, 115, 115, 115, 115, 115, 115, 115, 115, 115, 115, 115, 115, 115, 115, 115, 115, 115, 115, 115, 115, 115, 115, 115, 115, 115, 115, 115, 115, 115, 115, 115, 115, 115, 115, 115, 115, 115, 115, 115, 115, 116, 116, 116, 116, 116, 116, 117, 117, 118, 118, 119, 119, 120, 120, 121 }; static const short yyr2[] = { 0, 0, 2, 3, 2, 0, 2, 5, 4, 0, 0, 2, 1, 2, 1, 2, 3, 1, 1, 3, 3, 3, 3, 5, 5, 3, 3, 6, 6, 4, 4, 7, 6, 10, 2, 0, 1, 0, 1, 0, 1, 1, 1, 1, 4, 3, 3, 3, 2, 3, 1, 2, 3, 4, 4, 4, 4, 4, 4, 4, 4, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 5, 3, 3, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 1, 4, 3, 2, 2, 2, 1, 1, 4, 1, 1, 5, 6, 5, 4, 5, 6, 8, 1, 1, 1, 1, 1, 5, 5, 4, 4, 2, 5, 5, 4, 4, 2, 1, 2, 1, 2, 2, 1, 2, 4, 7, 2, 4, 5, 4, 2, 2, 3, 1, 5, 6, 6, 7, 9, 6, 2, 4, 2, 4, 1, 1, 6, 5, 4, 5, 4, 2, 1, 1, 3, 3, 4, 5, 5, 6, 6, 7, 8, 4, 2, 6, 1, 1, 1, 2, 2, 3, 3, 3, 1, 1, 1, 1, 1, 1, 2, 1, 1 }; static const short yydefact[] = { 1, 10, 39, 40, 0, 0, 0, 11, 14, 0, 12, 41, 42, 43, 0, 0, 0, 0, 17, 9, 186, 0, 126, 121, 0, 148, 0, 0, 156, 0, 0, 0, 0, 149, 0, 0, 137, 0, 0, 0, 0, 0, 157, 0, 0, 0, 0, 0, 0, 0, 0, 0, 88, 0, 0, 0, 94, 106, 98, 97, 95, 109, 108, 107, 110, 172, 123, 0, 0, 0, 0, 0, 15, 0, 0, 34, 5, 0, 13, 18, 50, 77, 171, 170, 0, 45, 46, 47, 10, 130, 0, 127, 0, 122, 186, 94, 93, 92, 180, 181, 0, 146, 0, 0, 144, 155, 37, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 134, 135, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 182, 183, 0, 168, 0, 0, 86, 87, 0, 0, 0, 115, 120, 0, 0, 0, 0, 174, 94, 0, 173, 124, 125, 80, 81, 84, 85, 91, 0, 78, 79, 0, 0, 0, 4, 16, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 82, 83, 44, 39, 186, 179, 0, 186, 179, 0, 0, 0, 0, 0, 0, 0, 38, 29, 0, 30, 0, 25, 0, 26, 0, 0, 0, 36, 0, 18, 136, 0, 0, 0, 0, 0, 0, 158, 159, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 175, 176, 177, 0, 185, 0, 90, 6, 0, 3, 21, 22, 19, 20, 49, 71, 66, 67, 0, 62, 0, 63, 52, 0, 73, 72, 0, 70, 0, 69, 0, 68, 0, 64, 0, 65, 75, 76, 0, 61, 8, 131, 0, 0, 0, 0, 128, 113, 0, 118, 0, 147, 0, 145, 0, 0, 0, 0, 152, 0, 154, 0, 37, 0, 133, 0, 0, 0, 0, 0, 160, 0, 0, 0, 0, 0, 167, 0, 0, 89, 0, 0, 114, 0, 119, 0, 0, 96, 0, 102, 0, 184, 0, 0, 54, 55, 0, 60, 59, 58, 56, 57, 53, 48, 132, 51, 0, 111, 116, 0, 27, 28, 23, 24, 151, 0, 0, 0, 32, 138, 0, 0, 0, 0, 161, 162, 0, 0, 0, 0, 0, 153, 0, 0, 112, 117, 99, 103, 101, 0, 0, 74, 0, 143, 150, 31, 0, 139, 0, 140, 0, 163, 164, 0, 0, 169, 104, 0, 100, 7, 129, 0, 141, 0, 165, 0, 0, 0, 0, 166, 105, 33, 142, 0, 0, 0 }; static const short yydefgoto[] = { 421, 1, 75, 167, 76, 88, 2, 7, 218, 78, 8, 219, 206, 9, 10, 11, 12, 13, 291, 79, 293, 80, 81, 82, 197, 101, 136, 254, 83 }; static const short yypact[] = {-32768, -32768, 133,-32768, 15, 48, 81,-32768,-32768, 438,-32768, -32768,-32768,-32768, -45, 42, 23, -49,-32768,-32768,-32768, 37, 40, 109, 791, 33, 45, 55, 2378, 1, 7, 9, 34, 91, 98, -29, 38, 122, 138, 146, 151, 152, 153, 154, 155, 157, 159, 161, 162, 56, 164, 165, 2461, 167, -27, 13, 14,-32768, 21,-32768,-32768, -32768,-32768,-32768,-32768, 879, 967, 2378, 2378, 2378, 2378, 1050,-32768, 2378, 2378,-32768, 39, 102,-32768, 201, 2753, 60,-32768,-32768, 200,-32768,-32768,-32768,-32768,-32768, 2544, -32768, 2627,-32768, 171, -2,-32768, 469,-32768,-32768, 127, -32768, 127, 127,-32768,-32768, 2378, 23, 2378, 23, 2378, 23, 2378, 23, 2378, 2378, 173, 524,-32768,-32768, 1133, 2627, 2627, 2627, 2627, 2627, 213, 1216, 2378, 2378, 2378, 2378, 2378,-32768,-32768, 20,-32768, 20, 2378,-32768, 469, 2378, 258, 207, 182, 183, 2378, 2378, 2378, 2378, 2378, 702, 2378, 206,-32768, 469, 60, 60, 104, 104, 185, 17, 60, 60, 23, 187, 23,-32768,-32768, 2378, 2378, 2378, 2378, 2378, 2378, 2378, 2378, 1714, 1797, 2378, 2378, 2378, 2378, 1880, 1963, 2046, 2129, 2212, 2378, 2378, 2295, -32768,-32768,-32768, 35, 19, 2753, 208, 24, 2669, 273, 1299, 1382, 275, 219, 283, 284, 206,-32768, 51,-32768, 71,-32768, 72,-32768, 267, 17, 2378,-32768, 203, 52, -32768, 288, 208, 227, 227, 230, 235,-32768,-32768, 74, 2704, 2669, 2669, 2669, 2669, 299, 227, 2704, 17, 2378, 302, 1465, 1548, 116, -26, 130, 83, 206, 206, 206, 2378,-32768, 1631, 217,-32768, 2378,-32768, 206, 206, 206, 206, 2753, 351, 2839, 2717, 2378, 147, 2378, -32, 2753, 2739, 334, 2796, 2378, 2648, 2378, 2648, 2378, 2831, 2378, 231, 2378, 231, 228, 228, 2378, 228,-32768,-32768, 2378, 308, 2378, 227,-32768,-32768, 17,-32768, 17,-32768, 2378, -32768, 23, 23, 23, 23,-32768, 77,-32768, 17, 2378, 23,-32768, 309, 208, 227, 2627, 2627,-32768, 317, 117, 208, 227, 227,-32768, 208, 323,-32768, 131, 2378,-32768, 17,-32768, 17, 241,-32768, 244,-32768, 107,-32768, 2378, 126, 2753, 2753, 2378, 2753, 2753, 2753, 2753, 2753, 2753, 206,-32768, 2753, 227,-32768,-32768, 17,-32768,-32768,-32768, -32768,-32768, 328, 23, 248,-32768,-32768, 338, 208, 343, 227,-32768,-32768, 344, 345, 208, 227, 347,-32768, 265, 141,-32768,-32768,-32768,-32768,-32768, 114, 23, 2788, 349, -32768,-32768,-32768, 614,-32768, 352,-32768, 227,-32768,-32768, 353, 208,-32768,-32768, 268,-32768,-32768,-32768, 355,-32768, 208,-32768, 356, 357, 23, 359,-32768,-32768,-32768,-32768, 365, 366,-32768 }; static const short yypgoto[] = {-32768, -32768, -102,-32768, -16,-32768, 279,-32768, 360,-32768,-32768, -24, 58,-32768,-32768,-32768,-32768,-32768, -127, 64, 65, -22, 256,-32768, -89, 25, -70, -162,-32768 }; #define YYLAST 2922 static const short yytable[] = { 86, 146, 97, 200, 19, 208, 105, 210, 96, 212, 19, 214, 19, 107, 109, 111, 113, 146, 144, 177, 14, 252, 84, 289, 148, 133, 19, 116, -178, 142, 140, 222, 223, 224, 225, 226, 227, 19, 98, 87, 173, 3, 89, 118, 155, 91, 188, 189, 4, 152, 154, 190, 104, 16, 308, 303, 252, 117, 311, 143, 98, 133, 164, 165, 166, 236, 335, 237, 196, 145, 199, 169, 170, 171, 172, 304, 305, 327, 318, 134, 5, 362, 15, 253, 202, -178, 17, 106, 6, 147, -178, 99, 215, 108, 119, 110, 313, 85, 196, 196, 196, 196, 196, 196, 319, 147, 231, 232, 233, 234, 235, 326, 149, 99, 93, 134, 238, 173, 253, 100, 112, 373, 288, 90, 120, 203, 92, 204, 205, 153, 388, 102, 98, -2, 355, 161, 356, 173, 173, 3, 173, 103, 135, 292, 191, 192, 4, 364, 255, 173, 257, 262, 263, 264, 265, 267, 269, 270, 271, 272, 273, 275, 277, 279, 281, 283, 284, 285, 287, 382, 207, 383, 209, 173, 211, 337, 213, 114, 5, 216, 173, 220, 173, 290, 115, 99, 6, 368,-32768,-32768, 168, 230, 173, 374, 375, 391, 173, 173, 378, 386, 358, 359, 360, 361, 334, 239, 406, 173, 121, 366, 244, 245, 246, 247, 248, 249, 250, 228, 336, 380, 169, 170, 171, 172, 122, 188, 189, 370, 371, 405, 190, 262, 123, 258, 259, 260, 261, 124, 125, 126, 127, 128, 396, 129, 342, 130, 343, 131, 132, 401, 137, 138, 345, 141, 346, 193, 347, 201, 348, 217, 349, 240, 393, 241, 350, 296, 298, 173, 242, 243, 353, 306, 173, 256, 290, 413, 251, 294, 174, 299, 307, 309, 177, 178, 416, 300, 407, 301, 302, 314, 315, 310, 312, 292, 196, 196, 316, 320, 321, 322, 323, 317, 325, 324, 328, 329, 331, 333, 340, 188, 189, 190, 352, 367, 190, 338, 175, 176, 177, 178, 341, 372, 389, 156, 157, 158, 159, 379, 384, 162, 163, 385, 392, 292, 179, 180, 394, 181, 182, 183, 184, 185, 395, 186, 187, 188, 189, 397, 399, 400, 190, 403, 404, 408, 351, 414, 410, 412, 354, 415, 417, 418,-32768, 420, 357, 422, 423, 194, 365, 77, 409, 0, 363, 0, 207, 0, 0, 0, 0, 0, 369, 0, 0, 175, 176, 177, 178, 376, 377, 0, 0, 0, 0, 381, 0, 0, 0, 0, 0, 419, 175, 176, 177, 178, 387, 182, 183, 184, 185, 0, 186, 187, 188, 189, 0, 0, 0, 190, 0, 390, 0, 181, 182, 183, 184, 185, 0, 186, 187, 188, 189, 0, 0, 0, 190, 0, 398, 0, 0, 18, 0, 19, 402, 20, 0, 0, 21, 22, 23, 0, 0, 0, 24, 25, 26, 27, 28, 29, 30, 31, 32, 0, 0, 411, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 0, 52, 53, 54, 0, 0, 0, 0, 0, 55, 0, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 0, 0, 0, 0, 0, 0, 0, 0, 0, 66, 0, 0, 0, 0, 67, 68, 177, 178, 69, 70, 71, 18, 72, 73, 74, 20, 0, 0, 21, 22, 23, 0, 0, 0, 24, 25, 26, 27, 28, 0, 0, 186, 187, 188, 189, 0, 33, 34, 190, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 0, 52, 53, 54, 0, 0, 0, 0, 0, 55, 0, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 0, 0, 0, 0, 0, 0, 0, 0, 0, 66, 0, 0, 0, 0, 67, 68, 0, 0, 69, 70, 71, 0, -35, 73, 74, 18, 0, 0, -35, 20, 0, 0, 21, 22, 23, 0, 0, 0, 24, 25, 26, 27, 28, 0, 0, 0, 0, 0, 0, 0, 33, 34, 0, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 0, 52, 53, 54, 0, 0, 0, 0, 0, 55, 0, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 0, 0, 0, 0, 0, 0, 0, 0, 0, 66, 0, 0, 0, 0, 67, 68, 0, 0, 69, 70, 71, 0, 0, 73, 74, 146, 0, 20, 0, 0, 21, 22, 23, 0, 0, 0, 24, 25, 26, 27, 28, 0, 0, 0, 0, 0, 0, 0, 33, 34, 0, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 0, 52, 53, 54, 0, 0, 0, 0, 0, 55, 0, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 0, 0, 0, 0, 0, 0, 0, 0, 0, 66, 0, 0, 0, 0, 67, 68, 0, 0, 0, 0, 71, 0, 0, 73, 74, 147, 19, 0, 94, 0, 0, 21, 22, 23, 0, 0, 0, 24, 25, 26, 27, 28, 0, 0, 0, 0, 0, 0, 0, 33, 34, 0, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 0, 52, 53, 54, 0, 0, 0, 0, 0, 55, 0, 95, 57, 58, 59, 60, 61, 62, 63, 64, 65, 0, 0, 0, 0, 0, 0, 0, 0, 0, 66, 0, 0, 0, 0, 67, 68, 0, 0, 69, 70, 71, 0, 0, 73, 74, 19, 0, 150, 0, 0, 21, 22, 23, 0, 0, 0, 24, 25, 26, 27, 28, 0, 0, 0, 0, 0, 0, 0, 33, 34, 0, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 0, 52, 53, 54, 0, 0, 0, 0, 0, 55, 0, 151, 57, 58, 59, 60, 61, 62, 63, 64, 65, 0, 0, 0, 0, 0, 0, 0, 0, 0, 66, 0, 0, 0, 0, 67, 68, 0, 0, 69, 70, 71, 0, 0, 73, 74, 19, 0, 20, 0, 0, 21, 22, 23, 0, 0, 0, 24, 25, 26, 27, 28, 0, 0, 0, 0, 0, 0, 0, 33, 34, 0, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 0, 52, 53, 54, 0, 0, 0, 0, 0, 55, 0, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 0, 0, 0, 0, 0, 0, 0, 0, 0, 66, 0, 0, 0, 0, 67, 68, 0, 0, 69, 70, 71, 160, 20, 73, 74, 21, 22, 23, 0, 0, 0, 24, 25, 26, 27, 28, 0, 0, 0, 0, 0, 0, 0, 33, 34, 0, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 0, 52, 53, 54, 0, 0, 0, 0, 0, 55, 0, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 0, 0, 0, 0, 0, 0, 0, 0, 0, 66, 0, 0, 0, 0, 67, 68, 0, 0, 69, 70, 71, 221, 198, 73, 74, 21, 22, 23, 0, 0, 0, 24, 25, 26, 27, 28, 0, 0, 0, 0, 0, 0, 0, 33, 34, 0, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 0, 52, 53, 54, 0, 0, 0, 0, 0, 55, 0, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 0, 0, 0, 0, 0, 0, 0, 0, 0, 66, 0, 0, 0, 0, 67, 68, 0, 0, 69, 70, 71, 229, 20, 73, 74, 21, 22, 23, 0, 0, 0, 24, 25, 26, 27, 28, 0, 0, 0, 0, 0, 0, 0, 33, 34, 0, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 0, 52, 53, 54, 0, 0, 0, 0, 0, 55, 0, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 0, 0, 0, 0, 0, 0, 0, 0, 0, 66, 0, 0, 0, 0, 67, 68, 0, 0, 69, 70, 71, 295, 20, 73, 74, 21, 22, 23, 0, 0, 0, 24, 25, 26, 27, 28, 0, 0, 0, 0, 0, 0, 0, 33, 34, 0, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 0, 52, 53, 54, 0, 0, 0, 0, 0, 55, 0, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 0, 0, 0, 0, 0, 0, 0, 0, 0, 66, 0, 0, 0, 0, 67, 68, 0, 0, 69, 70, 71, 297, 20, 73, 74, 21, 22, 23, 0, 0, 0, 24, 25, 26, 27, 28, 0, 0, 0, 0, 0, 0, 0, 33, 34, 0, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 0, 52, 53, 54, 0, 0, 0, 0, 0, 55, 0, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 0, 0, 0, 0, 0, 0, 0, 0, 0, 66, 0, 0, 0, 0, 67, 68, 0, 0, 69, 70, 71, 330, 20, 73, 74, 21, 22, 23, 0, 0, 0, 24, 25, 26, 27, 28, 0, 0, 0, 0, 0, 0, 0, 33, 34, 0, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 0, 52, 53, 54, 0, 0, 0, 0, 0, 55, 0, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 0, 0, 0, 0, 0, 0, 0, 0, 0, 66, 0, 0, 0, 0, 67, 68, 0, 0, 69, 70, 71, 332, 20, 73, 74, 21, 22, 23, 0, 0, 0, 24, 25, 26, 27, 28, 0, 0, 0, 0, 0, 0, 0, 33, 34, 0, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 0, 52, 53, 54, 0, 0, 0, 0, 0, 55, 0, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 0, 0, 0, 0, 0, 0, 0, 0, 0, 66, 0, 0, 0, 0, 67, 68, 0, 0, 69, 70, 71, 339, 20, 73, 74, 21, 22, 23, 0, 0, 0, 24, 25, 26, 27, 28, 0, 0, 0, 0, 0, 0, 0, 33, 34, 0, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 0, 52, 53, 54, 0, 0, 0, 0, 0, 55, 0, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 0, 0, 0, 0, 0, 0, 0, 0, 0, 66, 0, 0, 0, 0, 67, 68, 0, 0, 69, 70, 71, 0, 20, 73, 74, 21, 22, 23, 0, 0, 0, 24, 25, 26, 27, 28, 0, 0, 0, 0, 0, 0, 0, 33, 34, 0, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 0, 52, 53, 54, 0, 0, 0, 0, 0, 55, 0, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 0, 266, 0, 0, 0, 0, 0, 0, 0, 66, 0, 0, 0, 0, 67, 68, 0, 0, 69, 70, 71, 0, 20, 73, 74, 21, 22, 23, 0, 0, 0, 24, 25, 26, 27, 28, 0, 0, 0, 0, 0, 0, 0, 33, 34, 0, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 0, 52, 53, 54, 0, 0, 0, 0, 0, 55, 0, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 0, 268, 0, 0, 0, 0, 0, 0, 0, 66, 0, 0, 0, 0, 67, 68, 0, 0, 69, 70, 71, 0, 20, 73, 74, 21, 22, 23, 0, 0, 0, 24, 25, 26, 27, 28, 0, 0, 0, 0, 0, 0, 0, 33, 34, 0, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 0, 52, 53, 54, 0, 0, 0, 0, 0, 55, 0, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 0, 274, 0, 0, 0, 0, 0, 0, 0, 66, 0, 0, 0, 0, 67, 68, 0, 0, 69, 70, 71, 0, 20, 73, 74, 21, 22, 23, 0, 0, 0, 24, 25, 26, 27, 28, 0, 0, 0, 0, 0, 0, 0, 33, 34, 0, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 0, 52, 53, 54, 0, 0, 0, 0, 0, 55, 0, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 0, 276, 0, 0, 0, 0, 0, 0, 0, 66, 0, 0, 0, 0, 67, 68, 0, 0, 69, 70, 71, 0, 20, 73, 74, 21, 22, 23, 0, 0, 0, 24, 25, 26, 27, 28, 0, 0, 0, 0, 0, 0, 0, 33, 34, 0, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 0, 52, 53, 54, 0, 0, 0, 0, 0, 55, 0, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 0, 278, 0, 0, 0, 0, 0, 0, 0, 66, 0, 0, 0, 0, 67, 68, 0, 0, 69, 70, 71, 0, 20, 73, 74, 21, 22, 23, 0, 0, 0, 24, 25, 26, 27, 28, 0, 0, 0, 0, 0, 0, 0, 33, 34, 0, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 0, 52, 53, 54, 0, 0, 0, 0, 0, 55, 0, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 0, 280, 0, 0, 0, 0, 0, 0, 0, 66, 0, 0, 0, 0, 67, 68, 0, 0, 69, 70, 71, 0, 20, 73, 74, 21, 22, 23, 0, 0, 0, 24, 25, 26, 27, 28, 0, 0, 0, 0, 0, 0, 0, 33, 34, 0, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 0, 52, 53, 54, 0, 0, 0, 0, 0, 55, 0, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 0, 282, 0, 0, 0, 0, 0, 0, 0, 66, 0, 0, 0, 0, 67, 68, 0, 0, 69, 70, 71, 0, 20, 73, 74, 21, 22, 23, 0, 0, 0, 24, 25, 26, 27, 28, 0, 0, 0, 0, 0, 0, 0, 33, 34, 0, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 0, 52, 53, 54, 0, 0, 0, 0, 0, 55, 0, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 0, 286, 0, 0, 0, 0, 0, 0, 0, 66, 0, 0, 0, 0, 67, 68, 0, 0, 69, 70, 71, 0, 20, 73, 74, 21, 22, 23, 0, 0, 0, 24, 25, 26, 27, 28, 0, 0, 0, 0, 0, 0, 0, 33, 34, 0, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 0, 52, 53, 54, 0, 0, 0, 0, 0, 55, 0, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 0, 0, 0, 0, 0, 0, 0, 0, 0, 66, 0, 0, 0, 0, 67, 68, 0, 0, 69, 70, 71, 0, 139, 73, 74, 21, 22, 23, 0, 0, 0, 24, 25, 26, 27, 28, 0, 0, 0, 0, 0, 0, 0, 33, 34, 0, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 0, 52, 53, 54, 0, 0, 0, 0, 0, 55, 0, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 0, 0, 0, 0, 0, 0, 0, 0, 0, 66, 0, 0, 0, 0, 67, 68, 0, 0, 69, 70, 71, 0, 195, 73, 74, 21, 22, 23, 0, 0, 0, 24, 25, 26, 27, 28, 0, 0, 0, 0, 0, 0, 0, 33, 34, 0, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 0, 52, 53, 54, 0, 0, 0, 0, 0, 55, 0, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 0, 0, 0, 0, 0, 0, 0, 0, 0, 66, 0, 0, 0, 0, 67, 68, 0, 0, 69, 70, 71, 0, 198, 73, 74, 21, 22, 23, 0, 0, 0, 24, 25, 26, 27, 28, 0, 0, 0, 0, 0, 0, 0, 33, 34, 0, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 0, 52, 53, 54, 0, 0, 0, 0, 174, 55, 0, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 0, 0, 0, 0, 175, 176, 177, 178, 0, 66, 0, 0, 0, 0, 67, 68, 0, 0, 69, 70, 71, 0, 174, 73, 74, 175, 176, 177, 178, 185, 0, 186, 187, 188, 189, 0, 0, 0, 190, 0, 0, 0, 292, 179, 180, 0, 181, 182, 183, 184, 185, 0, 186, 187, 188, 189, 0, 174, 0, 190, 175, 176, 177, 178, 0, 0, 0, 0, 0, 0, 0, 174, 0, 175,-32768, 177, 178, 290, 179, 180, 0, 181, 182, 183, 184, 185, 0, 186, 187, 188, 189, 0, 0, 0, 190, 175, 176, 177, 178, 0, 186, 187, 188, 189, 0, 0, 174, 190, 0, 175, 176, 177, 178, 179, 180, 344, 181, 182, 183, 184, 185, 0, 186, 187, 188, 189, 0, 179, 180, 190, 181, 182, 183, 184, 185, 0, 186, 187, 188, 189, 0, 0, 0, 190, 175, 176, 177, 178, 0, 0, 0, 0, 175, 176, 177, 178, 0, 0, 0, 0, 0, 0, 0, 180, 0, 181, 182, 183, 184, 185, 0, 186, 187, 188, 189, 183, 184, 185, 190, 186, 187, 188, 189, 0, 0, 0, 190, 175, 176, 177, 178, 0, 0, 0, 0,-32768, 0, 177, 178, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 186, 187, 188, 189, 0, 0, 0, 190, 186, 187, 188, 189, 0, 0, 0, 190 }; static const short yycheck[] = { 16, 3, 24, 92, 3, 107, 28, 109, 24, 111, 3, 113, 3, 29, 30, 31, 32, 3, 5, 51, 5, 4, 67, 4, 3, 5, 3, 56, 4, 56, 52, 120, 121, 122, 123, 124, 125, 3, 5, 88, 66, 6, 5, 5, 66, 5, 78, 79, 13, 65, 66, 83, 27, 5, 216, 4, 4, 86, 220, 86, 5, 5, 23, 24, 25, 135, 92, 137, 90, 56, 92, 19, 20, 21, 22, 4, 4, 239, 4, 59, 45, 4, 67, 66, 86, 66, 5, 86, 53, 91, 66, 58, 114, 86, 56, 86, 223, 55, 120, 121, 122, 123, 124, 125, 231, 91, 128, 129, 130, 131, 132, 238, 91, 58, 5, 59, 138, 66, 66, 86, 86, 4, 87, 86, 86, 100, 86, 102, 103, 65, 4, 86, 5, 0, 296, 71, 298, 66, 66, 6, 66, 86, 86, 66, 84, 85, 13, 309, 164, 66, 166, 173, 174, 175, 176, 177, 178, 179, 180, 181, 182, 183, 184, 185, 186, 187, 188, 189, 190, 331, 106, 333, 108, 66, 110, 92, 112, 86, 45, 115, 66, 117, 66, 66, 86, 58, 53, 314, 84, 85, 88, 127, 66, 320, 321, 357, 66, 66, 325, 92, 302, 303, 304, 305, 88, 141, 92, 66, 86, 311, 146, 147, 148, 149, 150, 151, 152, 4, 88, 88, 19, 20, 21, 22, 86, 78, 79, 316, 317, 88, 83, 253, 86, 169, 170, 171, 172, 86, 86, 86, 86, 86, 369, 86, 266, 86, 268, 86, 86, 376, 86, 86, 274, 86, 276, 55, 278, 86, 280, 86, 282, 3, 364, 56, 286, 201, 202, 66, 86, 86, 292, 4, 66, 86, 66, 402, 91, 4, 11, 4, 215, 217, 51, 52, 411, 66, 388, 4, 4, 224, 225, 88, 4, 66, 316, 317, 66, 232, 233, 234, 235, 66, 237, 4, 240, 3, 242, 243, 91, 78, 79, 83, 4, 4, 83, 251, 49, 50, 51, 52, 256, 4, 344, 67, 68, 69, 70, 4, 87, 73, 74, 87, 4, 66, 67, 68, 88, 70, 71, 72, 73, 74, 4, 76, 77, 78, 79, 4, 4, 4, 83, 4, 87, 4, 290, 87, 4, 4, 293, 4, 4, 4, 11, 4, 300, 0, 0, 88, 310, 9, 394, -1, 307, -1, 310, -1, -1, -1, -1, -1, 315, -1, -1, 49, 50, 51, 52, 322, 323, -1, -1, -1, -1, 329, -1, -1, -1, -1, -1, 415, 49, 50, 51, 52, 340, 71, 72, 73, 74, -1, 76, 77, 78, 79, -1, -1, -1, 83, -1, 354, -1, 70, 71, 72, 73, 74, -1, 76, 77, 78, 79, -1, -1, -1, 83, -1, 371, -1, -1, 1, -1, 3, 377, 5, -1, -1, 8, 9, 10, -1, -1, -1, 14, 15, 16, 17, 18, 19, 20, 21, 22, -1, -1, 398, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, -1, 46, 47, 48, -1, -1, -1, -1, -1, 54, -1, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, -1, -1, -1, -1, -1, -1, -1, -1, -1, 75, -1, -1, -1, -1, 80, 81, 51, 52, 84, 85, 86, 1, 88, 89, 90, 5, -1, -1, 8, 9, 10, -1, -1, -1, 14, 15, 16, 17, 18, -1, -1, 76, 77, 78, 79, -1, 26, 27, 83, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, -1, 46, 47, 48, -1, -1, -1, -1, -1, 54, -1, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, -1, -1, -1, -1, -1, -1, -1, -1, -1, 75, -1, -1, -1, -1, 80, 81, -1, -1, 84, 85, 86, -1, 88, 89, 90, 1, -1, -1, 4, 5, -1, -1, 8, 9, 10, -1, -1, -1, 14, 15, 16, 17, 18, -1, -1, -1, -1, -1, -1, -1, 26, 27, -1, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, -1, 46, 47, 48, -1, -1, -1, -1, -1, 54, -1, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, -1, -1, -1, -1, -1, -1, -1, -1, -1, 75, -1, -1, -1, -1, 80, 81, -1, -1, 84, 85, 86, -1, -1, 89, 90, 3, -1, 5, -1, -1, 8, 9, 10, -1, -1, -1, 14, 15, 16, 17, 18, -1, -1, -1, -1, -1, -1, -1, 26, 27, -1, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, -1, 46, 47, 48, -1, -1, -1, -1, -1, 54, -1, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, -1, -1, -1, -1, -1, -1, -1, -1, -1, 75, -1, -1, -1, -1, 80, 81, -1, -1, -1, -1, 86, -1, -1, 89, 90, 91, 3, -1, 5, -1, -1, 8, 9, 10, -1, -1, -1, 14, 15, 16, 17, 18, -1, -1, -1, -1, -1, -1, -1, 26, 27, -1, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, -1, 46, 47, 48, -1, -1, -1, -1, -1, 54, -1, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, -1, -1, -1, -1, -1, -1, -1, -1, -1, 75, -1, -1, -1, -1, 80, 81, -1, -1, 84, 85, 86, -1, -1, 89, 90, 3, -1, 5, -1, -1, 8, 9, 10, -1, -1, -1, 14, 15, 16, 17, 18, -1, -1, -1, -1, -1, -1, -1, 26, 27, -1, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, -1, 46, 47, 48, -1, -1, -1, -1, -1, 54, -1, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, -1, -1, -1, -1, -1, -1, -1, -1, -1, 75, -1, -1, -1, -1, 80, 81, -1, -1, 84, 85, 86, -1, -1, 89, 90, 3, -1, 5, -1, -1, 8, 9, 10, -1, -1, -1, 14, 15, 16, 17, 18, -1, -1, -1, -1, -1, -1, -1, 26, 27, -1, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, -1, 46, 47, 48, -1, -1, -1, -1, -1, 54, -1, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, -1, -1, -1, -1, -1, -1, -1, -1, -1, 75, -1, -1, -1, -1, 80, 81, -1, -1, 84, 85, 86, 4, 5, 89, 90, 8, 9, 10, -1, -1, -1, 14, 15, 16, 17, 18, -1, -1, -1, -1, -1, -1, -1, 26, 27, -1, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, -1, 46, 47, 48, -1, -1, -1, -1, -1, 54, -1, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, -1, -1, -1, -1, -1, -1, -1, -1, -1, 75, -1, -1, -1, -1, 80, 81, -1, -1, 84, 85, 86, 4, 5, 89, 90, 8, 9, 10, -1, -1, -1, 14, 15, 16, 17, 18, -1, -1, -1, -1, -1, -1, -1, 26, 27, -1, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, -1, 46, 47, 48, -1, -1, -1, -1, -1, 54, -1, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, -1, -1, -1, -1, -1, -1, -1, -1, -1, 75, -1, -1, -1, -1, 80, 81, -1, -1, 84, 85, 86, 4, 5, 89, 90, 8, 9, 10, -1, -1, -1, 14, 15, 16, 17, 18, -1, -1, -1, -1, -1, -1, -1, 26, 27, -1, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, -1, 46, 47, 48, -1, -1, -1, -1, -1, 54, -1, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, -1, -1, -1, -1, -1, -1, -1, -1, -1, 75, -1, -1, -1, -1, 80, 81, -1, -1, 84, 85, 86, 4, 5, 89, 90, 8, 9, 10, -1, -1, -1, 14, 15, 16, 17, 18, -1, -1, -1, -1, -1, -1, -1, 26, 27, -1, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, -1, 46, 47, 48, -1, -1, -1, -1, -1, 54, -1, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, -1, -1, -1, -1, -1, -1, -1, -1, -1, 75, -1, -1, -1, -1, 80, 81, -1, -1, 84, 85, 86, 4, 5, 89, 90, 8, 9, 10, -1, -1, -1, 14, 15, 16, 17, 18, -1, -1, -1, -1, -1, -1, -1, 26, 27, -1, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, -1, 46, 47, 48, -1, -1, -1, -1, -1, 54, -1, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, -1, -1, -1, -1, -1, -1, -1, -1, -1, 75, -1, -1, -1, -1, 80, 81, -1, -1, 84, 85, 86, 4, 5, 89, 90, 8, 9, 10, -1, -1, -1, 14, 15, 16, 17, 18, -1, -1, -1, -1, -1, -1, -1, 26, 27, -1, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, -1, 46, 47, 48, -1, -1, -1, -1, -1, 54, -1, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, -1, -1, -1, -1, -1, -1, -1, -1, -1, 75, -1, -1, -1, -1, 80, 81, -1, -1, 84, 85, 86, 4, 5, 89, 90, 8, 9, 10, -1, -1, -1, 14, 15, 16, 17, 18, -1, -1, -1, -1, -1, -1, -1, 26, 27, -1, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, -1, 46, 47, 48, -1, -1, -1, -1, -1, 54, -1, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, -1, -1, -1, -1, -1, -1, -1, -1, -1, 75, -1, -1, -1, -1, 80, 81, -1, -1, 84, 85, 86, 4, 5, 89, 90, 8, 9, 10, -1, -1, -1, 14, 15, 16, 17, 18, -1, -1, -1, -1, -1, -1, -1, 26, 27, -1, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, -1, 46, 47, 48, -1, -1, -1, -1, -1, 54, -1, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, -1, -1, -1, -1, -1, -1, -1, -1, -1, 75, -1, -1, -1, -1, 80, 81, -1, -1, 84, 85, 86, -1, 5, 89, 90, 8, 9, 10, -1, -1, -1, 14, 15, 16, 17, 18, -1, -1, -1, -1, -1, -1, -1, 26, 27, -1, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, -1, 46, 47, 48, -1, -1, -1, -1, -1, 54, -1, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, -1, 67, -1, -1, -1, -1, -1, -1, -1, 75, -1, -1, -1, -1, 80, 81, -1, -1, 84, 85, 86, -1, 5, 89, 90, 8, 9, 10, -1, -1, -1, 14, 15, 16, 17, 18, -1, -1, -1, -1, -1, -1, -1, 26, 27, -1, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, -1, 46, 47, 48, -1, -1, -1, -1, -1, 54, -1, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, -1, 67, -1, -1, -1, -1, -1, -1, -1, 75, -1, -1, -1, -1, 80, 81, -1, -1, 84, 85, 86, -1, 5, 89, 90, 8, 9, 10, -1, -1, -1, 14, 15, 16, 17, 18, -1, -1, -1, -1, -1, -1, -1, 26, 27, -1, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, -1, 46, 47, 48, -1, -1, -1, -1, -1, 54, -1, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, -1, 67, -1, -1, -1, -1, -1, -1, -1, 75, -1, -1, -1, -1, 80, 81, -1, -1, 84, 85, 86, -1, 5, 89, 90, 8, 9, 10, -1, -1, -1, 14, 15, 16, 17, 18, -1, -1, -1, -1, -1, -1, -1, 26, 27, -1, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, -1, 46, 47, 48, -1, -1, -1, -1, -1, 54, -1, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, -1, 67, -1, -1, -1, -1, -1, -1, -1, 75, -1, -1, -1, -1, 80, 81, -1, -1, 84, 85, 86, -1, 5, 89, 90, 8, 9, 10, -1, -1, -1, 14, 15, 16, 17, 18, -1, -1, -1, -1, -1, -1, -1, 26, 27, -1, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, -1, 46, 47, 48, -1, -1, -1, -1, -1, 54, -1, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, -1, 67, -1, -1, -1, -1, -1, -1, -1, 75, -1, -1, -1, -1, 80, 81, -1, -1, 84, 85, 86, -1, 5, 89, 90, 8, 9, 10, -1, -1, -1, 14, 15, 16, 17, 18, -1, -1, -1, -1, -1, -1, -1, 26, 27, -1, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, -1, 46, 47, 48, -1, -1, -1, -1, -1, 54, -1, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, -1, 67, -1, -1, -1, -1, -1, -1, -1, 75, -1, -1, -1, -1, 80, 81, -1, -1, 84, 85, 86, -1, 5, 89, 90, 8, 9, 10, -1, -1, -1, 14, 15, 16, 17, 18, -1, -1, -1, -1, -1, -1, -1, 26, 27, -1, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, -1, 46, 47, 48, -1, -1, -1, -1, -1, 54, -1, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, -1, 67, -1, -1, -1, -1, -1, -1, -1, 75, -1, -1, -1, -1, 80, 81, -1, -1, 84, 85, 86, -1, 5, 89, 90, 8, 9, 10, -1, -1, -1, 14, 15, 16, 17, 18, -1, -1, -1, -1, -1, -1, -1, 26, 27, -1, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, -1, 46, 47, 48, -1, -1, -1, -1, -1, 54, -1, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, -1, 67, -1, -1, -1, -1, -1, -1, -1, 75, -1, -1, -1, -1, 80, 81, -1, -1, 84, 85, 86, -1, 5, 89, 90, 8, 9, 10, -1, -1, -1, 14, 15, 16, 17, 18, -1, -1, -1, -1, -1, -1, -1, 26, 27, -1, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, -1, 46, 47, 48, -1, -1, -1, -1, -1, 54, -1, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, -1, -1, -1, -1, -1, -1, -1, -1, -1, 75, -1, -1, -1, -1, 80, 81, -1, -1, 84, 85, 86, -1, 5, 89, 90, 8, 9, 10, -1, -1, -1, 14, 15, 16, 17, 18, -1, -1, -1, -1, -1, -1, -1, 26, 27, -1, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, -1, 46, 47, 48, -1, -1, -1, -1, -1, 54, -1, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, -1, -1, -1, -1, -1, -1, -1, -1, -1, 75, -1, -1, -1, -1, 80, 81, -1, -1, 84, 85, 86, -1, 5, 89, 90, 8, 9, 10, -1, -1, -1, 14, 15, 16, 17, 18, -1, -1, -1, -1, -1, -1, -1, 26, 27, -1, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, -1, 46, 47, 48, -1, -1, -1, -1, -1, 54, -1, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, -1, -1, -1, -1, -1, -1, -1, -1, -1, 75, -1, -1, -1, -1, 80, 81, -1, -1, 84, 85, 86, -1, 5, 89, 90, 8, 9, 10, -1, -1, -1, 14, 15, 16, 17, 18, -1, -1, -1, -1, -1, -1, -1, 26, 27, -1, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, -1, 46, 47, 48, -1, -1, -1, -1, 11, 54, -1, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, -1, -1, -1, -1, 49, 50, 51, 52, -1, 75, -1, -1, -1, -1, 80, 81, -1, -1, 84, 85, 86, -1, 11, 89, 90, 49, 50, 51, 52, 74, -1, 76, 77, 78, 79, -1, -1, -1, 83, -1, -1, -1, 66, 67, 68, -1, 70, 71, 72, 73, 74, -1, 76, 77, 78, 79, -1, 11, -1, 83, 49, 50, 51, 52, -1, -1, -1, -1, -1, -1, -1, 11, -1, 49, 50, 51, 52, 66, 67, 68, -1, 70, 71, 72, 73, 74, -1, 76, 77, 78, 79, -1, -1, -1, 83, 49, 50, 51, 52, -1, 76, 77, 78, 79, -1, -1, 11, 83, -1, 49, 50, 51, 52, 67, 68, 69, 70, 71, 72, 73, 74, -1, 76, 77, 78, 79, -1, 67, 68, 83, 70, 71, 72, 73, 74, -1, 76, 77, 78, 79, -1, -1, -1, 83, 49, 50, 51, 52, -1, -1, -1, -1, 49, 50, 51, 52, -1, -1, -1, -1, -1, -1, -1, 68, -1, 70, 71, 72, 73, 74, -1, 76, 77, 78, 79, 72, 73, 74, 83, 76, 77, 78, 79, -1, -1, -1, 83, 49, 50, 51, 52, -1, -1, -1, -1, 49, -1, 51, 52, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, 76, 77, 78, 79, -1, -1, -1, 83, 76, 77, 78, 79, -1, -1, -1, 83 }; /* -*-C-*- Note some compilers choke on comments on `#line' lines. */ #line 3 "bison.simple" /* Skeleton output parser for bison, Copyright (C) 1984, 1989, 1990 Bob Corbett and Richard Stallman This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 1, or (at your option) any later version. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with this program; if not, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #ifndef alloca #ifdef _DCC #include <alloca.h> #endif #ifdef __GNUC__ #define alloca __builtin_alloca #else /* not GNU C. */ #if (!defined (__STDC__) && defined (sparc)) || defined (__sparc__) #include <alloca.h> #else /* not sparc */ #if defined (MSDOS) && !defined (__TURBOC__) #include <malloc.h> #else /* not MSDOS, or __TURBOC__ */ #if defined(_AIX) #include <malloc.h> #pragma alloca #endif /* not _AIX */ #endif /* not MSDOS, or __TURBOC__ */ #endif /* not sparc. */ #endif /* not GNU C. */ #endif /* alloca not defined. */ /* This is the parser code that is written into each bison parser when the %semantic_parser declaration is not specified in the grammar. It was written by Richard Stallman by simplifying the hairy parser used when %semantic_parser is specified. */ /* Note: there must be only one dollar sign in this file. It is replaced by the list of actions, each action as one case of the switch. */ #ifdef AMIGA #define bzero(b, length) memset((b),'\0',(length)) #define bcopy(b1, b2, length) memcpy((b1),(b2),(length)) #define bcmp(b1, b2, length) memcmp((b1),(b2),(length)) #include <stdlib.h> /* extern char *calloc();*/ /* extern void done();*/ /* extern char *program_name;*/ char * mallocate(n) register unsigned n; { register char *block; /* Avoid uncertainty about what an arg of 0 will do. */ if (n == 0) n = 1; block = calloc(n,1); if (block == NULL) { fprintf(stderr, "Bison: memory exhausted\n"); /*done(1);*/ exit(1); } return (block); } /* This name is used by alloca.c. */ char * xmalloc (n) unsigned int n; { return mallocate (n); } /* alloca -- (mostly) portable public-domain implementation -- D A Gwyn last edit: 86/05/30 rms include config.h, since on VMS it renames some symbols. Use xmalloc instead of malloc. This implementation of the PWB library alloca() function, which is used to allocate space off the run-time stack so that it is automatically reclaimed upon procedure exit, was inspired by discussions with J. Q. Johnson of Cornell. It should work under any C implementation that uses an actual procedure stack (as opposed to a linked list of frames). There are some preprocessor constants that can be defined when compiling for your specific system, for improved efficiency; however, the defaults should be okay. The general concept of this implementation is to keep track of all alloca()-allocated blocks, and reclaim any that are found to be deeper in the stack than the current invocation. This heuristic does not reclaim storage as soon as it becomes invalid, but it will do so eventually. As a special case, alloca(0) reclaims storage without allocating any. It is a good idea to use alloca(0) in your main control loop, etc. to force garbage collection. */ #ifndef lint static char SCCSid[] = "@(#)alloca.c 1.1"; /* for the "what" utility */ #endif #ifdef emacs #include "config.h" #ifdef static /* actually, only want this if static is defined as "" -- this is for usg, in which emacs must undefine static in order to make unexec workable */ #ifndef STACK_DIRECTION you lose -- must know STACK_DIRECTION at compile-time #endif /* STACK_DIRECTION undefined */ #endif /* static */ #endif /* emacs */ #ifdef __STDC__ typedef void *pointer; /* generic pointer type */ #else typedef char *pointer; /* generic pointer type */ #endif #ifdef _DCC extern void free(void *); #else extern void free(); #endif /* extern pointer xmalloc();*/ /* Define STACK_DIRECTION if you know the direction of stack growth for your system; otherwise it will be automatically deduced at run-time. STACK_DIRECTION > 0 => grows toward higher addresses STACK_DIRECTION < 0 => grows toward lower addresses STACK_DIRECTION = 0 => direction of growth unknown */ #ifndef STACK_DIRECTION #define STACK_DIRECTION 0 /* direction unknown */ #endif #if STACK_DIRECTION != 0 #define STACK_DIR STACK_DIRECTION /* known at compile-time */ #else /* STACK_DIRECTION == 0; need run-time code */ static int stack_dir; /* 1 or -1 once known */ #define STACK_DIR stack_dir static void find_stack_direction (/* void */) { static char *addr = NULL; /* address of first `dummy', once known */ auto char dummy; /* to get stack address */ if (addr == NULL) { /* initial entry */ addr = &dummy; find_stack_direction (); /* recurse once */ } else /* second entry */ if (&dummy > addr) stack_dir = 1; /* stack grew upward */ else stack_dir = -1; /* stack grew downward */ } #endif /* STACK_DIRECTION == 0 */ /* An "alloca header" is used to: (a) chain together all alloca()ed blocks; (b) keep track of stack depth. It is very important that sizeof(header) agree with malloc() alignment chunk size. The following default should work okay. */ #ifndef ALIGN_SIZE #define ALIGN_SIZE sizeof(double) #endif typedef union hdr { char align[ALIGN_SIZE]; /* to force sizeof(header) */ struct { union hdr *next; /* for chaining headers */ char *deep; /* for stack depth measure */ } h; } header; /* alloca( size ) returns a pointer to at least `size' bytes of storage which will be automatically reclaimed upon exit from the procedure that called alloca(). Originally, this space was supposed to be taken from the current stack frame of the caller, but that method cannot be made to work for some implementations of C, for example under Gould's UTX/32. */ static header *last_alloca_header = NULL; /* -> last alloca header */ pointer alloca (size) /* returns pointer to storage */ #ifdef _DCC long size; /* # bytes to allocate */ #else unsigned size; /* # bytes to allocate */ #endif { auto char probe; /* probes stack depth: */ register char *depth = &probe; #if STACK_DIRECTION == 0 if (STACK_DIR == 0) /* unknown growth direction */ find_stack_direction (); #endif /* Reclaim garbage, defined as all alloca()ed storage that was allocated from deeper in the stack than currently. */ { register header *hp; /* traverses linked list */ for (hp = last_alloca_header; hp != NULL;) if ((STACK_DIR > 0 && hp->h.deep > depth) || (STACK_DIR < 0 && hp->h.deep < depth)) { register header *np = hp->h.next; free ((pointer) hp); /* collect garbage */ hp = np; /* -> next header */ } else break; /* rest are not deeper */ last_alloca_header = hp; /* -> last valid storage */ } if (size == 0) return NULL; /* no allocation required */ /* Allocate combined header + user data storage. */ { register pointer new = xmalloc (sizeof (header) + size); /* address of header */ ((header *)new)->h.next = last_alloca_header; ((header *)new)->h.deep = depth; last_alloca_header = (header *)new; /* User storage begins just after header. */ return (pointer)((char *)new + sizeof(header)); } } #endif #define yyerrok (yyerrstatus = 0) #define yyclearin (yychar = YYEMPTY) #define YYEMPTY -2 #define YYEOF 0 #define YYACCEPT return(0) #define YYABORT return(1) #define YYERROR goto yyerrlab1 /* Like YYERROR except do call yyerror. This remains here temporarily to ease the transition to the new meaning of YYERROR, for GCC. Once GCC version 2 has supplanted version 1, this can go. */ #define YYFAIL goto yyerrlab #define YYRECOVERING() (!!yyerrstatus) #define YYBACKUP(token, value) \ do \ if (yychar == YYEMPTY && yylen == 1) \ { yychar = (token), yylval = (value); \ yychar1 = YYTRANSLATE (yychar); \ YYPOPSTACK; \ goto yybackup; \ } \ else \ { yyerror ("syntax error: cannot back up"); YYERROR; } \ while (0) #define YYTERROR 1 #define YYERRCODE 256 #ifndef YYPURE #define YYLEX yylex() #endif #ifdef YYPURE #ifdef YYLSP_NEEDED #define YYLEX yylex(&yylval, &yylloc) #else #define YYLEX yylex(&yylval) #endif #endif /* If nonreentrant, generate the variables here */ #ifndef YYPURE int yychar; /* the lookahead symbol */ YYSTYPE yylval; /* the semantic value of the */ /* lookahead symbol */ #ifdef YYLSP_NEEDED YYLTYPE yylloc; /* location data for the lookahead */ /* symbol */ #endif int yynerrs; /* number of parse errors so far */ #endif /* not YYPURE */ #if YYDEBUG != 0 int yydebug; /* nonzero means print parse trace */ /* Since this is uninitialized, it does not stop multiple parsers from coexisting. */ #endif /* YYINITDEPTH indicates the initial size of the parser's stacks */ #ifndef YYINITDEPTH #define YYINITDEPTH 200 #endif /* YYMAXDEPTH is the maximum size the stacks can grow to (effective only if the built-in stack extension method is used). */ #if YYMAXDEPTH == 0 #undef YYMAXDEPTH #endif #ifndef YYMAXDEPTH #define YYMAXDEPTH 10000 #endif #if __GNUC__ > 1 /* GNU C and GNU C++ define this. */ #define __yy_bcopy(FROM,TO,COUNT) __builtin_memcpy(TO,FROM,COUNT) #else /* not GNU C or C++ */ #ifndef __cplusplus /* This is the most reliable way to avoid incompatibilities in available built-in functions on various systems. */ static void __yy_bcopy (from, to, count) char *from; char *to; int count; { register char *f = from; register char *t = to; register int i = count; while (i-- > 0) *t++ = *f++; } #else /* __cplusplus */ /* This is the most reliable way to avoid incompatibilities in available built-in functions on various systems. */ static void __yy_bcopy (char *from, char *to, int count) { register char *f = from; register char *t = to; register int i = count; while (i-- > 0) *t++ = *f++; } #endif #endif #line 169 "bison.simple" int yyparse() { register int yystate; register int yyn; register short *yyssp; register YYSTYPE *yyvsp; int yyerrstatus; /* number of tokens to shift before error messages enabled */ int yychar1; /* lookahead token as an internal (translated) token number */ short yyssa[YYINITDEPTH]; /* the state stack */ YYSTYPE yyvsa[YYINITDEPTH]; /* the semantic value stack */ short *yyss = yyssa; /* refer to the stacks thru separate pointers */ YYSTYPE *yyvs = yyvsa; /* to allow yyoverflow to reallocate them elsewhere */ #ifdef YYLSP_NEEDED YYLTYPE yylsa[YYINITDEPTH]; /* the location stack */ YYLTYPE *yyls = yylsa; YYLTYPE *yylsp; #define YYPOPSTACK (yyvsp--, yysp--, yylsp--) #else #define YYPOPSTACK (yyvsp--, yysp--) #endif int yystacksize = YYINITDEPTH; #ifdef YYPURE int yychar; YYSTYPE yylval; int yynerrs; #ifdef YYLSP_NEEDED YYLTYPE yylloc; #endif #endif YYSTYPE yyval; /* the variable used to return */ /* semantic values from the action */ /* routines */ int yylen; #if YYDEBUG != 0 if (yydebug) fprintf(stderr, "Starting parse\n"); #endif yystate = 0; yyerrstatus = 0; yynerrs = 0; yychar = YYEMPTY; /* Cause a token to be read. */ /* Initialize stack pointers. Waste one element of value and location stack so that they stay on the same level as the state stack. */ yyssp = yyss - 1; yyvsp = yyvs; #ifdef YYLSP_NEEDED yylsp = yyls; #endif /* Push a new state, which is found in yystate . */ /* In all cases, when you get here, the value and location stacks have just been pushed. so pushing a state here evens the stacks. */ yynewstate: *++yyssp = yystate; if (yyssp >= yyss + yystacksize - 1) { /* Give user a chance to reallocate the stack */ /* Use copies of these so that the &'s don't force the real ones into memory. */ YYSTYPE *yyvs1 = yyvs; short *yyss1 = yyss; #ifdef YYLSP_NEEDED YYLTYPE *yyls1 = yyls; #endif /* Get the current used size of the three stacks, in elements. */ int size = yyssp - yyss + 1; #ifdef yyoverflow /* Each stack pointer address is followed by the size of the data in use in that stack, in bytes. */ yyoverflow("parser stack overflow", &yyss1, size * sizeof (*yyssp), &yyvs1, size * sizeof (*yyvsp), #ifdef YYLSP_NEEDED &yyls1, size * sizeof (*yylsp), #endif &yystacksize); yyss = yyss1; yyvs = yyvs1; #ifdef YYLSP_NEEDED yyls = yyls1; #endif #else /* no yyoverflow */ /* Extend the stack our own way. */ if (yystacksize >= YYMAXDEPTH) { yyerror("parser stack overflow"); return 2; } yystacksize *= 2; if (yystacksize > YYMAXDEPTH) yystacksize = YYMAXDEPTH; yyss = (short *) alloca (yystacksize * sizeof (*yyssp)); __yy_bcopy ((char *)yyss1, (char *)yyss, size * sizeof (*yyssp)); yyvs = (YYSTYPE *) alloca (yystacksize * sizeof (*yyvsp)); __yy_bcopy ((char *)yyvs1, (char *)yyvs, size * sizeof (*yyvsp)); #ifdef YYLSP_NEEDED yyls = (YYLTYPE *) alloca (yystacksize * sizeof (*yylsp)); __yy_bcopy ((char *)yyls1, (char *)yyls, size * sizeof (*yylsp)); #endif #endif /* no yyoverflow */ yyssp = yyss + size - 1; yyvsp = yyvs + size - 1; #ifdef YYLSP_NEEDED yylsp = yyls + size - 1; #endif #if YYDEBUG != 0 if (yydebug) fprintf(stderr, "Stack size increased to %d\n", yystacksize); #endif if (yyssp >= yyss + yystacksize - 1) YYABORT; } #if YYDEBUG != 0 if (yydebug) fprintf(stderr, "Entering state %d\n", yystate); #endif yybackup: /* Do appropriate processing given the current state. */ /* Read a lookahead token if we need one and don't already have one. */ /* yyresume: */ /* First try to decide what to do without reference to lookahead token. */ yyn = yypact[yystate]; if (yyn == YYFLAG) goto yydefault; /* Not known => get a lookahead token if don't already have one. */ /* yychar is either YYEMPTY or YYEOF or a valid token in external form. */ if (yychar == YYEMPTY) { #if YYDEBUG != 0 if (yydebug) fprintf(stderr, "Reading a token: "); #endif yychar = YYLEX; } /* Convert token to internal form (in yychar1) for indexing tables with */ if (yychar <= 0) /* This means end of input. */ { yychar1 = 0; yychar = YYEOF; /* Don't call YYLEX any more */ #if YYDEBUG != 0 if (yydebug) fprintf(stderr, "Now at end of input.\n"); #endif } else { yychar1 = YYTRANSLATE(yychar); #if YYDEBUG != 0 if (yydebug) { fprintf (stderr, "Next token is %d (%s", yychar, yytname[yychar1]); /* Give the individual parser a way to print the precise meaning of a token, for further debugging info. */ #ifdef YYPRINT YYPRINT (stderr, yychar, yylval); #endif fprintf (stderr, ")\n"); } #endif } yyn += yychar1; if (yyn < 0 || yyn > YYLAST || yycheck[yyn] != yychar1) goto yydefault; yyn = yytable[yyn]; /* yyn is what to do for this token type in this state. Negative => reduce, -yyn is rule number. Positive => shift, yyn is new state. New state is final state => don't bother to shift, just return success. 0, or most negative number => error. */ if (yyn < 0) { if (yyn == YYFLAG) goto yyerrlab; yyn = -yyn; goto yyreduce; } else if (yyn == 0) goto yyerrlab; if (yyn == YYFINAL) YYACCEPT; /* Shift the lookahead token. */ #if YYDEBUG != 0 if (yydebug) fprintf(stderr, "Shifting token %d (%s), ", yychar, yytname[yychar1]); #endif /* Discard the token being shifted unless it is eof. */ if (yychar != YYEOF) yychar = YYEMPTY; *++yyvsp = yylval; #ifdef YYLSP_NEEDED *++yylsp = yylloc; #endif /* count tokens shifted since error; after three, turn off error status. */ if (yyerrstatus) yyerrstatus--; yystate = yyn; goto yynewstate; /* Do the default action for the current state. */ yydefault: yyn = yydefact[yystate]; if (yyn == 0) goto yyerrlab; /* Do a reduction. yyn is the number of a rule to reduce with. */ yyreduce: yylen = yyr2[yyn]; yyval = yyvsp[1-yylen]; /* implement default value of the action */ #if YYDEBUG != 0 if (yydebug) { int i; fprintf (stderr, "Reducing via rule %d (line %d), ", yyn, yyrline[yyn]); /* Print the symboles being reduced, and their result. */ for (i = yyprhs[yyn]; yyrhs[i] > 0; i++) fprintf (stderr, "%s ", yytname[yyrhs[i]]); fprintf (stderr, " -> %s\n", yytname[yyr1[yyn]]); } #endif switch (yyn) { case 1: #line 109 "perly.y" { #if defined(YYDEBUG) && defined(DEBUGGING) yydebug = (debug & 1); #endif expectterm = 2; ; break;} case 2: #line 116 "perly.y" { if (in_eval) eval_root = block_head(yyvsp[0].cmdval); else main_root = block_head(yyvsp[0].cmdval); ; break;} case 3: #line 123 "perly.y" { yyval.compval.comp_true = yyvsp[-2].cmdval; yyval.compval.comp_alt = yyvsp[0].cmdval; ; break;} case 4: #line 125 "perly.y" { yyval.compval.comp_true = yyvsp[-1].cmdval; yyval.compval.comp_alt = yyvsp[0].cmdval; ; break;} case 5: #line 129 "perly.y" { yyval.cmdval = Nullcmd; ; break;} case 6: #line 131 "perly.y" { yyval.cmdval = yyvsp[0].cmdval; ; break;} case 7: #line 133 "perly.y" { cmdline = yyvsp[-4].ival; yyval.cmdval = make_ccmd(C_ELSIF,1,yyvsp[-2].arg,yyvsp[0].compval); ; break;} case 8: #line 138 "perly.y" { yyval.cmdval = block_head(yyvsp[-1].cmdval); if (cmdline > (line_t)yyvsp[-3].ival) cmdline = yyvsp[-3].ival; if (savestack->ary_fill > yyvsp[-2].ival) restorelist(yyvsp[-2].ival); expectterm = 2; ; break;} case 9: #line 147 "perly.y" { yyval.ival = savestack->ary_fill; ; break;} case 10: #line 151 "perly.y" { yyval.cmdval = Nullcmd; ; break;} case 11: #line 153 "perly.y" { yyval.cmdval = append_line(yyvsp[-1].cmdval,yyvsp[0].cmdval); ; break;} case 12: #line 157 "perly.y" { yyval.cmdval = Nullcmd; ; break;} case 13: #line 159 "perly.y" { yyval.cmdval = add_label(yyvsp[-1].cval,yyvsp[0].cmdval); ; break;} case 15: #line 162 "perly.y" { if (yyvsp[-1].cval != Nullch) { yyval.cmdval = add_label(yyvsp[-1].cval, make_acmd(C_EXPR, Nullstab, Nullarg, Nullarg) ); } else { yyval.cmdval = Nullcmd; cmdline = NOLINE; } expectterm = 2; ; break;} case 16: #line 172 "perly.y" { yyval.cmdval = add_label(yyvsp[-2].cval,yyvsp[-1].cmdval); expectterm = 2; ; break;} case 17: #line 177 "perly.y" { yyval.cmdval = Nullcmd; ; break;} case 18: #line 179 "perly.y" { yyval.cmdval = make_acmd(C_EXPR, Nullstab, yyvsp[0].arg, Nullarg); ; break;} case 19: #line 181 "perly.y" { yyval.cmdval = addcond( make_acmd(C_EXPR, Nullstab, Nullarg, yyvsp[-2].arg), yyvsp[0].arg); ; break;} case 20: #line 184 "perly.y" { yyval.cmdval = addcond(invert( make_acmd(C_EXPR, Nullstab, Nullarg, yyvsp[-2].arg)), yyvsp[0].arg); ; break;} case 21: #line 187 "perly.y" { yyval.cmdval = addloop( make_acmd(C_EXPR, Nullstab, Nullarg, yyvsp[-2].arg), yyvsp[0].arg); ; break;} case 22: #line 190 "perly.y" { yyval.cmdval = addloop(invert( make_acmd(C_EXPR, Nullstab, Nullarg, yyvsp[-2].arg)), yyvsp[0].arg); ; break;} case 23: #line 195 "perly.y" { cmdline = yyvsp[-4].ival; yyval.cmdval = make_icmd(C_IF,yyvsp[-2].arg,yyvsp[0].compval); ; break;} case 24: #line 198 "perly.y" { cmdline = yyvsp[-4].ival; yyval.cmdval = invert(make_icmd(C_IF,yyvsp[-2].arg,yyvsp[0].compval)); ; break;} case 25: #line 201 "perly.y" { cmdline = yyvsp[-2].ival; yyval.cmdval = make_icmd(C_IF,cmd_to_arg(yyvsp[-1].cmdval),yyvsp[0].compval); ; break;} case 26: #line 204 "perly.y" { cmdline = yyvsp[-2].ival; yyval.cmdval = invert(make_icmd(C_IF,cmd_to_arg(yyvsp[-1].cmdval),yyvsp[0].compval)); ; break;} case 27: #line 209 "perly.y" { cmdline = yyvsp[-4].ival; yyval.cmdval = wopt(add_label(yyvsp[-5].cval, make_ccmd(C_WHILE,1,yyvsp[-2].arg,yyvsp[0].compval) )); ; break;} case 28: #line 213 "perly.y" { cmdline = yyvsp[-4].ival; yyval.cmdval = wopt(add_label(yyvsp[-5].cval, invert(make_ccmd(C_WHILE,1,yyvsp[-2].arg,yyvsp[0].compval)) )); ; break;} case 29: #line 217 "perly.y" { cmdline = yyvsp[-2].ival; yyval.cmdval = wopt(add_label(yyvsp[-3].cval, make_ccmd(C_WHILE, 1, cmd_to_arg(yyvsp[-1].cmdval),yyvsp[0].compval) )); ; break;} case 30: #line 221 "perly.y" { cmdline = yyvsp[-2].ival; yyval.cmdval = wopt(add_label(yyvsp[-3].cval, invert(make_ccmd(C_WHILE,1,cmd_to_arg(yyvsp[-1].cmdval),yyvsp[0].compval)) )); ; break;} case 31: #line 225 "perly.y" { cmdline = yyvsp[-5].ival; /* * The following gobbledygook catches EXPRs that * aren't explicit array refs and translates * foreach VAR (EXPR) { * into * @ary = EXPR; * foreach VAR (@ary) { * where @ary is a hidden array made by genstab(). * (Note that @ary may become a local array if * it is determined that it might be called * recursively. See cmd_tosave().) */ if (yyvsp[-2].arg->arg_type != O_ARRAY) { scrstab = aadd(genstab()); yyval.cmdval = append_line( make_acmd(C_EXPR, Nullstab, l(make_op(O_ASSIGN,2, listish(make_op(O_ARRAY, 1, stab2arg(A_STAB,scrstab), Nullarg,Nullarg )), listish(make_list(yyvsp[-2].arg)), Nullarg)), Nullarg), wopt(over(yyvsp[-4].stabval,add_label(yyvsp[-6].cval, make_ccmd(C_WHILE, 0, make_op(O_ARRAY, 1, stab2arg(A_STAB,scrstab), Nullarg,Nullarg ), yyvsp[0].compval))))); yyval.cmdval->c_line = yyvsp[-5].ival; yyval.cmdval->c_head->c_line = yyvsp[-5].ival; } else { yyval.cmdval = wopt(over(yyvsp[-4].stabval,add_label(yyvsp[-6].cval, make_ccmd(C_WHILE,1,yyvsp[-2].arg,yyvsp[0].compval) ))); } ; break;} case 32: #line 264 "perly.y" { cmdline = yyvsp[-4].ival; if (yyvsp[-2].arg->arg_type != O_ARRAY) { scrstab = aadd(genstab()); yyval.cmdval = append_line( make_acmd(C_EXPR, Nullstab, l(make_op(O_ASSIGN,2, listish(make_op(O_ARRAY, 1, stab2arg(A_STAB,scrstab), Nullarg,Nullarg )), listish(make_list(yyvsp[-2].arg)), Nullarg)), Nullarg), wopt(over(defstab,add_label(yyvsp[-5].cval, make_ccmd(C_WHILE, 0, make_op(O_ARRAY, 1, stab2arg(A_STAB,scrstab), Nullarg,Nullarg ), yyvsp[0].compval))))); yyval.cmdval->c_line = yyvsp[-4].ival; yyval.cmdval->c_head->c_line = yyvsp[-4].ival; } else { /* lisp, anyone? */ yyval.cmdval = wopt(over(defstab,add_label(yyvsp[-5].cval, make_ccmd(C_WHILE,1,yyvsp[-2].arg,yyvsp[0].compval) ))); } ; break;} case 33: #line 292 "perly.y" { yyval.compval.comp_true = yyvsp[0].cmdval; yyval.compval.comp_alt = yyvsp[-2].cmdval; cmdline = yyvsp[-8].ival; yyval.cmdval = append_line(yyvsp[-6].cmdval,wopt(add_label(yyvsp[-9].cval, make_ccmd(C_WHILE,1,yyvsp[-4].arg,yyval.compval) ))); ; break;} case 34: #line 298 "perly.y" { yyval.cmdval = add_label(yyvsp[-1].cval,make_ccmd(C_BLOCK,1,Nullarg,yyvsp[0].compval)); ; break;} case 35: #line 302 "perly.y" { yyval.cmdval = Nullcmd; ; break;} case 37: #line 307 "perly.y" { (void)scanstr("1",SCAN_DEF); yyval.arg = yylval.arg; ; break;} case 39: #line 312 "perly.y" { yyval.cval = Nullch; ; break;} case 41: #line 317 "perly.y" { yyval.ival = 0; ; break;} case 42: #line 319 "perly.y" { yyval.ival = 0; ; break;} case 43: #line 321 "perly.y" { yyval.ival = 0; ; break;} case 44: #line 325 "perly.y" { if (strEQ(yyvsp[-2].cval,"stdout")) make_form(stabent("STDOUT",TRUE),yyvsp[0].formval); else if (strEQ(yyvsp[-2].cval,"stderr")) make_form(stabent("STDERR",TRUE),yyvsp[0].formval); else make_form(stabent(yyvsp[-2].cval,TRUE),yyvsp[0].formval); Safefree(yyvsp[-2].cval); yyvsp[-2].cval = Nullch; ; break;} case 45: #line 333 "perly.y" { make_form(stabent("STDOUT",TRUE),yyvsp[0].formval); ; break;} case 46: #line 337 "perly.y" { make_sub(yyvsp[-1].cval,yyvsp[0].cmdval); cmdline = NOLINE; if (savestack->ary_fill > yyvsp[-2].ival) restorelist(yyvsp[-2].ival); ; break;} case 47: #line 344 "perly.y" { char tmpbuf[256]; STAB *tmpstab; savehptr(&curstash); saveitem(curstname); str_set(curstname,yyvsp[-1].cval); sprintf(tmpbuf,"'_%s",yyvsp[-1].cval); tmpstab = stabent(tmpbuf,TRUE); if (!stab_xhash(tmpstab)) stab_xhash(tmpstab) = hnew(0); curstash = stab_xhash(tmpstab); if (!curstash->tbl_name) curstash->tbl_name = savestr(yyvsp[-1].cval); curstash->tbl_coeffsize = 0; Safefree(yyvsp[-1].cval); yyvsp[-1].cval = Nullch; cmdline = NOLINE; expectterm = 2; ; break;} case 48: #line 365 "perly.y" { yyval.arg = yyvsp[0].arg; ; break;} case 49: #line 369 "perly.y" { yyval.arg = make_op(O_COMMA, 2, yyvsp[-2].arg, yyvsp[0].arg, Nullarg); ; break;} case 51: #line 374 "perly.y" { yyval.arg = yyvsp[0].arg; ; break;} case 52: #line 378 "perly.y" { yyvsp[-2].arg = listish(yyvsp[-2].arg); if (yyvsp[-2].arg->arg_type == O_ASSIGN && yyvsp[-2].arg->arg_len == 1) yyvsp[-2].arg->arg_type = O_ITEM; /* a local() */ if (yyvsp[-2].arg->arg_type == O_LIST) yyvsp[0].arg = listish(yyvsp[0].arg); yyval.arg = l(make_op(O_ASSIGN, 2, yyvsp[-2].arg, yyvsp[0].arg, Nullarg)); ; break;} case 53: #line 385 "perly.y" { yyval.arg = l(make_op(O_POW, 2, yyvsp[-3].arg, yyvsp[0].arg, Nullarg)); ; break;} case 54: #line 387 "perly.y" { yyval.arg = l(make_op(yyvsp[-2].ival, 2, yyvsp[-3].arg, yyvsp[0].arg, Nullarg)); ; break;} case 55: #line 389 "perly.y" { yyval.arg = rcatmaybe(l(make_op(yyvsp[-2].ival, 2, yyvsp[-3].arg, yyvsp[0].arg, Nullarg)));; break;} case 56: #line 391 "perly.y" { yyval.arg = l(make_op(O_LEFT_SHIFT, 2, yyvsp[-3].arg, yyvsp[0].arg, Nullarg)); ; break;} case 57: #line 393 "perly.y" { yyval.arg = l(make_op(O_RIGHT_SHIFT, 2, yyvsp[-3].arg, yyvsp[0].arg, Nullarg)); ; break;} case 58: #line 395 "perly.y" { yyval.arg = l(make_op(O_BIT_AND, 2, yyvsp[-3].arg, yyvsp[0].arg, Nullarg)); ; break;} case 59: #line 397 "perly.y" { yyval.arg = l(make_op(O_XOR, 2, yyvsp[-3].arg, yyvsp[0].arg, Nullarg)); ; break;} case 60: #line 399 "perly.y" { yyval.arg = l(make_op(O_BIT_OR, 2, yyvsp[-3].arg, yyvsp[0].arg, Nullarg)); ; break;} case 61: #line 403 "perly.y" { yyval.arg = make_op(O_POW, 2, yyvsp[-2].arg, yyvsp[0].arg, Nullarg); ; break;} case 62: #line 405 "perly.y" { if (yyvsp[-1].ival == O_REPEAT) yyvsp[-2].arg = listish(yyvsp[-2].arg); yyval.arg = make_op(yyvsp[-1].ival, 2, yyvsp[-2].arg, yyvsp[0].arg, Nullarg); if (yyvsp[-1].ival == O_REPEAT) { if (yyval.arg[1].arg_type != A_EXPR || yyval.arg[1].arg_ptr.arg_arg->arg_type != O_LIST) yyval.arg[1].arg_flags &= ~AF_ARYOK; } ; break;} case 63: #line 414 "perly.y" { yyval.arg = make_op(yyvsp[-1].ival, 2, yyvsp[-2].arg, yyvsp[0].arg, Nullarg); ; break;} case 64: #line 416 "perly.y" { yyval.arg = make_op(O_LEFT_SHIFT, 2, yyvsp[-2].arg, yyvsp[0].arg, Nullarg); ; break;} case 65: #line 418 "perly.y" { yyval.arg = make_op(O_RIGHT_SHIFT, 2, yyvsp[-2].arg, yyvsp[0].arg, Nullarg); ; break;} case 66: #line 420 "perly.y" { yyval.arg = make_op(yyvsp[-1].ival, 2, yyvsp[-2].arg, yyvsp[0].arg, Nullarg); ; break;} case 67: #line 422 "perly.y" { yyval.arg = make_op(yyvsp[-1].ival, 2, yyvsp[-2].arg, yyvsp[0].arg, Nullarg); ; break;} case 68: #line 424 "perly.y" { yyval.arg = make_op(O_BIT_AND, 2, yyvsp[-2].arg, yyvsp[0].arg, Nullarg); ; break;} case 69: #line 426 "perly.y" { yyval.arg = make_op(O_XOR, 2, yyvsp[-2].arg, yyvsp[0].arg, Nullarg); ; break;} case 70: #line 428 "perly.y" { yyval.arg = make_op(O_BIT_OR, 2, yyvsp[-2].arg, yyvsp[0].arg, Nullarg); ; break;} case 71: #line 430 "perly.y" { arg4 = Nullarg; yyval.arg = make_op(O_F_OR_R, 4, yyvsp[-2].arg, yyvsp[0].arg, Nullarg); yyval.arg[0].arg_flags |= yyvsp[-1].ival; ; break;} case 72: #line 434 "perly.y" { yyval.arg = make_op(O_AND, 2, yyvsp[-2].arg, yyvsp[0].arg, Nullarg); ; break;} case 73: #line 436 "perly.y" { yyval.arg = make_op(O_OR, 2, yyvsp[-2].arg, yyvsp[0].arg, Nullarg); ; break;} case 74: #line 438 "perly.y" { yyval.arg = make_op(O_COND_EXPR, 3, yyvsp[-4].arg, yyvsp[-2].arg, yyvsp[0].arg); ; break;} case 75: #line 440 "perly.y" { yyval.arg = mod_match(O_MATCH, yyvsp[-2].arg, yyvsp[0].arg); ; break;} case 76: #line 442 "perly.y" { yyval.arg = mod_match(O_NMATCH, yyvsp[-2].arg, yyvsp[0].arg); ; break;} case 77: #line 444 "perly.y" { yyval.arg = yyvsp[0].arg; ; break;} case 78: #line 448 "perly.y" { yyval.arg = make_op(O_NEGATE, 1, yyvsp[0].arg, Nullarg, Nullarg); ; break;} case 79: #line 450 "perly.y" { yyval.arg = yyvsp[0].arg; ; break;} case 80: #line 452 "perly.y" { yyval.arg = make_op(O_NOT, 1, yyvsp[0].arg, Nullarg, Nullarg); ; break;} case 81: #line 454 "perly.y" { yyval.arg = make_op(O_COMPLEMENT, 1, yyvsp[0].arg, Nullarg, Nullarg);; break;} case 82: #line 456 "perly.y" { yyval.arg = addflags(1, AF_POST|AF_UP, l(make_op(O_ITEM,1,yyvsp[-1].arg,Nullarg,Nullarg))); ; break;} case 83: #line 459 "perly.y" { yyval.arg = addflags(1, AF_POST, l(make_op(O_ITEM,1,yyvsp[-1].arg,Nullarg,Nullarg))); ; break;} case 84: #line 462 "perly.y" { yyval.arg = addflags(1, AF_PRE|AF_UP, l(make_op(O_ITEM,1,yyvsp[0].arg,Nullarg,Nullarg))); ; break;} case 85: #line 465 "perly.y" { yyval.arg = addflags(1, AF_PRE, l(make_op(O_ITEM,1,yyvsp[0].arg,Nullarg,Nullarg))); ; break;} case 86: #line 468 "perly.y" { opargs[yyvsp[-1].ival] = 0; /* force it special */ yyval.arg = make_op(yyvsp[-1].ival, 1, stab2arg(A_STAB,stabent(yyvsp[0].cval,TRUE)), Nullarg, Nullarg); Safefree(yyvsp[0].cval); yyvsp[0].cval = Nullch; ; break;} case 87: #line 475 "perly.y" { opargs[yyvsp[-1].ival] = 1; yyval.arg = make_op(yyvsp[-1].ival, 1, yyvsp[0].arg, Nullarg, Nullarg); ; break;} case 88: #line 478 "perly.y" { opargs[yyvsp[0].ival] = (yyvsp[0].ival != O_FTTTY); yyval.arg = make_op(yyvsp[0].ival, 1, stab2arg(A_STAB, yyvsp[0].ival == O_FTTTY?stabent("STDIN",TRUE):defstab), Nullarg, Nullarg); ; break;} case 89: #line 484 "perly.y" { yyval.arg = l(localize(make_op(O_ASSIGN, 1, localize(listish(make_list(yyvsp[-1].arg))), Nullarg,Nullarg))); ; break;} case 90: #line 488 "perly.y" { yyval.arg = make_list(yyvsp[-1].arg); ; break;} case 91: #line 490 "perly.y" { yyval.arg = make_list(Nullarg); ; break;} case 92: #line 492 "perly.y" { yyval.arg = make_op(O_DOFILE,2,yyvsp[0].arg,Nullarg,Nullarg); allstabs = TRUE;; break;} case 93: #line 495 "perly.y" { yyval.arg = cmd_to_arg(yyvsp[0].cmdval); ; break;} case 94: #line 497 "perly.y" { yyval.arg = stab2arg(A_STAB,yyvsp[0].stabval); ; break;} case 95: #line 499 "perly.y" { yyval.arg = stab2arg(A_STAR,yyvsp[0].stabval); ; break;} case 96: #line 501 "perly.y" { yyval.arg = make_op(O_AELEM, 2, stab2arg(A_STAB,aadd(yyvsp[-3].stabval)), yyvsp[-1].arg, Nullarg); ; break;} case 97: #line 504 "perly.y" { yyval.arg = make_op(O_HASH, 1, stab2arg(A_STAB,yyvsp[0].stabval), Nullarg, Nullarg); ; break;} case 98: #line 508 "perly.y" { yyval.arg = make_op(O_ARRAY, 1, stab2arg(A_STAB,yyvsp[0].stabval), Nullarg, Nullarg); ; break;} case 99: #line 512 "perly.y" { yyval.arg = make_op(O_HELEM, 2, stab2arg(A_STAB,hadd(yyvsp[-4].stabval)), jmaybe(yyvsp[-2].arg), Nullarg); expectterm = FALSE; ; break;} case 100: #line 518 "perly.y" { yyval.arg = make_op(O_LSLICE, 3, Nullarg, listish(make_list(yyvsp[-1].arg)), listish(make_list(yyvsp[-4].arg))); ; break;} case 101: #line 523 "perly.y" { yyval.arg = make_op(O_LSLICE, 3, Nullarg, listish(make_list(yyvsp[-1].arg)), Nullarg); ; break;} case 102: #line 528 "perly.y" { yyval.arg = make_op(O_ASLICE, 2, stab2arg(A_STAB,aadd(yyvsp[-3].stabval)), listish(make_list(yyvsp[-1].arg)), Nullarg); ; break;} case 103: #line 533 "perly.y" { yyval.arg = make_op(O_HSLICE, 2, stab2arg(A_STAB,hadd(yyvsp[-4].stabval)), listish(make_list(yyvsp[-2].arg)), Nullarg); expectterm = FALSE; ; break;} case 104: #line 539 "perly.y" { yyval.arg = make_op(O_DELETE, 2, stab2arg(A_STAB,hadd(yyvsp[-4].stabval)), jmaybe(yyvsp[-2].arg), Nullarg); expectterm = FALSE; ; break;} case 105: #line 545 "perly.y" { yyval.arg = make_op(O_DELETE, 2, stab2arg(A_STAB,hadd(yyvsp[-5].stabval)), jmaybe(yyvsp[-4].ival), Nullarg); expectterm = FALSE; ; break;} case 106: #line 551 "perly.y" { yyval.arg = stab2arg(A_ARYLEN,yyvsp[0].stabval); ; break;} case 107: #line 553 "perly.y" { yyval.arg = yyvsp[0].arg; ; break;} case 108: #line 555 "perly.y" { yyval.arg = yyvsp[0].arg; ; break;} case 109: #line 557 "perly.y" { yyval.arg = yyvsp[0].arg; ; break;} case 110: #line 559 "perly.y" { yyval.arg = yyvsp[0].arg; ; break;} case 111: #line 561 "perly.y" { yyval.arg = make_op((perldb ? O_DBSUBR : O_SUBR), 2, stab2arg(A_WORD,stabent(yyvsp[-3].cval,MULTI)), make_list(yyvsp[-1].arg), Nullarg); Safefree(yyvsp[-3].cval); yyvsp[-3].cval = Nullch; yyval.arg->arg_flags |= AF_DEPR; ; break;} case 112: #line 567 "perly.y" { yyval.arg = make_op((perldb ? O_DBSUBR : O_SUBR), 2, stab2arg(A_WORD,stabent(yyvsp[-3].cval,MULTI)), make_list(yyvsp[-1].arg), Nullarg); Safefree(yyvsp[-3].cval); yyvsp[-3].cval = Nullch; ; break;} case 113: #line 572 "perly.y" { yyval.arg = make_op((perldb ? O_DBSUBR : O_SUBR), 2, stab2arg(A_WORD,stabent(yyvsp[-2].cval,MULTI)), make_list(Nullarg), Nullarg); Safefree(yyvsp[-2].cval); yyvsp[-2].cval = Nullch; yyval.arg->arg_flags |= AF_DEPR; ; break;} case 114: #line 579 "perly.y" { yyval.arg = make_op((perldb ? O_DBSUBR : O_SUBR), 2, stab2arg(A_WORD,stabent(yyvsp[-2].cval,MULTI)), make_list(Nullarg), Nullarg); Safefree(yyvsp[-2].cval); yyvsp[-2].cval = Nullch; ; break;} case 115: #line 586 "perly.y" { yyval.arg = make_op((perldb ? O_DBSUBR : O_SUBR), 2, stab2arg(A_WORD,stabent(yyvsp[0].cval,MULTI)), Nullarg, Nullarg); Safefree(yyvsp[0].cval); yyvsp[0].cval = Nullch; ; break;} case 116: #line 593 "perly.y" { yyval.arg = make_op((perldb ? O_DBSUBR : O_SUBR), 2, stab2arg(A_STAB,yyvsp[-3].stabval), make_list(yyvsp[-1].arg), Nullarg); yyval.arg->arg_flags |= AF_DEPR; ; break;} case 117: #line 599 "perly.y" { yyval.arg = make_op((perldb ? O_DBSUBR : O_SUBR), 2, stab2arg(A_STAB,yyvsp[-3].stabval), make_list(yyvsp[-1].arg), Nullarg); ; break;} case 118: #line 604 "perly.y" { yyval.arg = make_op((perldb ? O_DBSUBR : O_SUBR), 2, stab2arg(A_STAB,yyvsp[-2].stabval), make_list(Nullarg), Nullarg); yyval.arg->arg_flags |= AF_DEPR; ; break;} case 119: #line 610 "perly.y" { yyval.arg = make_op((perldb ? O_DBSUBR : O_SUBR), 2, stab2arg(A_STAB,yyvsp[-2].stabval), make_list(Nullarg), Nullarg); ; break;} case 120: #line 615 "perly.y" { yyval.arg = make_op((perldb ? O_DBSUBR : O_SUBR), 2, stab2arg(A_STAB,yyvsp[0].stabval), Nullarg, Nullarg); ; break;} case 121: #line 620 "perly.y" { yyval.arg = make_op(yyvsp[0].ival,0,Nullarg,Nullarg,Nullarg); ; break;} case 122: #line 622 "perly.y" { yyval.arg = make_op(yyvsp[-1].ival,1,cval_to_arg(yyvsp[0].cval), Nullarg,Nullarg); ; break;} case 123: #line 625 "perly.y" { yyval.arg = make_op(yyvsp[0].ival,0,Nullarg,Nullarg,Nullarg); ; break;} case 124: #line 627 "perly.y" { yyval.arg = make_op(yyvsp[-1].ival,1,cmd_to_arg(yyvsp[0].cmdval),Nullarg,Nullarg); ; break;} case 125: #line 629 "perly.y" { yyval.arg = make_op(yyvsp[-1].ival,1,yyvsp[0].arg,Nullarg,Nullarg); ; break;} case 126: #line 631 "perly.y" { yyval.arg = make_op(O_SELECT, 0, Nullarg, Nullarg, Nullarg);; break;} case 127: #line 633 "perly.y" { yyval.arg = make_op(O_SELECT, 1, stab2arg(A_WORD,stabent(yyvsp[0].cval,TRUE)), Nullarg, Nullarg); Safefree(yyvsp[0].cval); yyvsp[0].cval = Nullch; ; break;} case 128: #line 639 "perly.y" { yyval.arg = make_op(O_SELECT, 1, yyvsp[-1].arg, Nullarg, Nullarg); ; break;} case 129: #line 641 "perly.y" { arg4 = yyvsp[-1].arg; yyval.arg = make_op(O_SSELECT, 4, yyvsp[-4].arg, yyvsp[-3].arg, yyvsp[-2].arg); ; break;} case 130: #line 644 "perly.y" { yyval.arg = make_op(O_OPEN, 2, stab2arg(A_WORD,stabent(yyvsp[0].cval,TRUE)), stab2arg(A_STAB,stabent(yyvsp[0].cval,TRUE)), Nullarg); Safefree(yyvsp[0].cval); yyvsp[0].cval = Nullch; ; break;} case 131: #line 651 "perly.y" { yyval.arg = make_op(O_OPEN, 2, stab2arg(A_WORD,stabent(yyvsp[-1].cval,TRUE)), stab2arg(A_STAB,stabent(yyvsp[-1].cval,TRUE)), Nullarg); Safefree(yyvsp[-1].cval); yyvsp[-1].cval = Nullch; ; break;} case 132: #line 658 "perly.y" { yyval.arg = make_op(O_OPEN, 2, yyvsp[-2].arg, yyvsp[-1].arg, Nullarg); ; break;} case 133: #line 662 "perly.y" { yyval.arg = make_op(yyvsp[-3].ival, 1, yyvsp[-1].arg, Nullarg, Nullarg); ; break;} case 134: #line 666 "perly.y" { yyval.arg = make_op(yyvsp[-1].ival, 1, stab2arg(A_WORD,stabent(yyvsp[0].cval,TRUE)), Nullarg, Nullarg); Safefree(yyvsp[0].cval); yyvsp[0].cval = Nullch; ; break;} case 135: #line 671 "perly.y" { yyval.arg = make_op(yyvsp[-1].ival, 1, stab2arg(A_STAB,yyvsp[0].stabval), Nullarg, Nullarg); ; break;} case 136: #line 675 "perly.y" { yyval.arg = make_op(yyvsp[-2].ival, 1, stab2arg(A_WORD,Nullstab), Nullarg, Nullarg); ; break;} case 137: #line 679 "perly.y" { yyval.arg = make_op(yyvsp[0].ival, 0, Nullarg, Nullarg, Nullarg); ; break;} case 138: #line 682 "perly.y" { yyval.arg = make_op(yyvsp[-4].ival, 2, yyvsp[-2].arg, yyvsp[-1].arg, Nullarg); ; break;} case 139: #line 684 "perly.y" { yyval.arg = make_op(yyvsp[-5].ival, 3, yyvsp[-3].arg, yyvsp[-2].arg, make_list(yyvsp[-1].arg)); ; break;} case 140: #line 686 "perly.y" { yyval.arg = make_op(yyvsp[-5].ival, 2, yyvsp[-3].arg, yyvsp[-1].arg, Nullarg); ; break;} case 141: #line 688 "perly.y" { arg4 = yyvsp[-1].arg; yyval.arg = make_op(yyvsp[-6].ival, 4, yyvsp[-4].arg, yyvsp[-3].arg, yyvsp[-2].arg); ; break;} case 142: #line 690 "perly.y" { arg4 = yyvsp[-2].arg; arg5 = yyvsp[-1].arg; yyval.arg = make_op(yyvsp[-8].ival, 5, yyvsp[-6].arg, yyvsp[-4].arg, yyvsp[-3].arg); ; break;} case 143: #line 693 "perly.y" { yyval.arg = make_op(yyvsp[-5].ival, 2, yyvsp[-3].arg, make_list(yyvsp[-1].arg), Nullarg); ; break;} case 144: #line 698 "perly.y" { yyval.arg = make_op(O_POP, 1, yyvsp[0].arg, Nullarg, Nullarg); ; break;} case 145: #line 700 "perly.y" { yyval.arg = make_op(O_POP, 1, yyvsp[-1].arg, Nullarg, Nullarg); ; break;} case 146: #line 702 "perly.y" { yyval.arg = make_op(O_SHIFT, 1, yyvsp[0].arg, Nullarg, Nullarg); ; break;} case 147: #line 704 "perly.y" { yyval.arg = make_op(O_SHIFT, 1, yyvsp[-1].arg, Nullarg, Nullarg); ; break;} case 148: #line 706 "perly.y" { yyval.arg = make_op(O_SHIFT, 1, stab2arg(A_STAB, aadd(stabent(subline ? "_" : "ARGV", TRUE))), Nullarg, Nullarg); ; break;} case 149: #line 711 "perly.y" { static char p[]="/\\s+/"; char *oldend = bufend; ARG *oldarg = yylval.arg; bufend=p+5; (void)scanpat(p); bufend=oldend; yyval.arg = make_split(defstab,yylval.arg,Nullarg); yylval.arg = oldarg; ; break;} case 150: #line 721 "perly.y" { yyval.arg = mod_match(O_MATCH, yyvsp[-2].arg, make_split(defstab,yyvsp[-3].arg,yyvsp[-1].arg));; break;} case 151: #line 724 "perly.y" { yyval.arg = mod_match(O_MATCH, yyvsp[-1].arg, make_split(defstab,yyvsp[-2].arg,Nullarg) ); ; break;} case 152: #line 727 "perly.y" { yyval.arg = mod_match(O_MATCH, stab2arg(A_STAB,defstab), make_split(defstab,yyvsp[-1].arg,Nullarg) ); ; break;} case 153: #line 731 "perly.y" { yyval.arg = make_op(yyvsp[-4].ival, 2, yyvsp[-2].arg, listish(make_list(yyvsp[-1].arg)), Nullarg); ; break;} case 154: #line 736 "perly.y" { yyval.arg = make_op(yyvsp[-3].ival, 1, make_list(yyvsp[-1].arg), Nullarg, Nullarg); ; break;} case 155: #line 741 "perly.y" { yyval.arg = l(make_op(yyvsp[-1].ival, 1, fixl(yyvsp[-1].ival,yyvsp[0].arg), Nullarg, Nullarg)); ; break;} case 156: #line 744 "perly.y" { yyval.arg = l(make_op(yyvsp[0].ival, 1, stab2arg(A_STAB,defstab), Nullarg, Nullarg)); ; break;} case 157: #line 748 "perly.y" { yyval.arg = make_op(yyvsp[0].ival, 0, Nullarg, Nullarg, Nullarg); ; break;} case 158: #line 750 "perly.y" { yyval.arg = make_op(yyvsp[-2].ival, 0, Nullarg, Nullarg, Nullarg); ; break;} case 159: #line 752 "perly.y" { yyval.arg = make_op(yyvsp[-2].ival, 0, Nullarg, Nullarg, Nullarg); ; break;} case 160: #line 754 "perly.y" { yyval.arg = make_op(yyvsp[-3].ival, 1, yyvsp[-1].arg, Nullarg, Nullarg); ; break;} case 161: #line 756 "perly.y" { yyval.arg = make_op(yyvsp[-4].ival, 2, yyvsp[-2].arg, yyvsp[-1].arg, Nullarg); if (yyvsp[-4].ival == O_INDEX && yyval.arg[2].arg_type == A_SINGLE) fbmcompile(yyval.arg[2].arg_ptr.arg_str,0); ; break;} case 162: #line 760 "perly.y" { yyval.arg = make_op(yyvsp[-4].ival, 2, yyvsp[-2].arg, yyvsp[-1].arg, Nullarg); if (yyvsp[-4].ival == O_INDEX && yyval.arg[2].arg_type == A_SINGLE) fbmcompile(yyval.arg[2].arg_ptr.arg_str,0); ; break;} case 163: #line 764 "perly.y" { yyval.arg = make_op(yyvsp[-5].ival, 3, yyvsp[-3].arg, yyvsp[-2].arg, yyvsp[-1].arg); if (yyvsp[-5].ival == O_INDEX && yyval.arg[2].arg_type == A_SINGLE) fbmcompile(yyval.arg[2].arg_ptr.arg_str,0); ; break;} case 164: #line 768 "perly.y" { yyval.arg = make_op(yyvsp[-5].ival, 3, yyvsp[-3].arg, yyvsp[-2].arg, yyvsp[-1].arg); ; break;} case 165: #line 770 "perly.y" { arg4 = yyvsp[-1].arg; yyval.arg = make_op(yyvsp[-6].ival, 4, yyvsp[-4].arg, yyvsp[-3].arg, yyvsp[-2].arg); ; break;} case 166: #line 773 "perly.y" { arg4 = yyvsp[-2].arg; arg5 = yyvsp[-1].arg; yyval.arg = make_op(yyvsp[-7].ival, 5, yyvsp[-5].arg, yyvsp[-4].arg, yyvsp[-3].arg); ; break;} case 167: #line 776 "perly.y" { yyval.arg = make_op(yyvsp[-3].ival, 1, yyvsp[-1].arg, Nullarg, Nullarg); ; break;} case 168: #line 781 "perly.y" { yyval.arg = make_op(yyvsp[-1].ival, 1, yyvsp[0].arg, Nullarg, Nullarg); ; break;} case 169: #line 786 "perly.y" { yyval.arg = make_op(yyvsp[-5].ival, 3, yyvsp[-3].arg, yyvsp[-2].arg, yyvsp[-1].arg); ; break;} case 172: #line 792 "perly.y" { yyval.arg = make_op(yyvsp[0].ival,2, stab2arg(A_WORD,Nullstab), stab2arg(A_STAB,defstab), Nullarg); ; break;} case 173: #line 797 "perly.y" { yyval.arg = make_op(yyvsp[-1].ival,2, stab2arg(A_WORD,Nullstab), maybelistish(yyvsp[-1].ival,make_list(yyvsp[0].arg)), Nullarg); ; break;} case 174: #line 802 "perly.y" { yyval.arg = make_op(yyvsp[-1].ival,2, stab2arg(A_WORD,stabent(yyvsp[0].cval,TRUE)), stab2arg(A_STAB,defstab), Nullarg); Safefree(yyvsp[0].cval); yyvsp[0].cval = Nullch; ; break;} case 175: #line 809 "perly.y" { yyval.arg = make_op(yyvsp[-2].ival,2, stab2arg(A_WORD,stabent(yyvsp[-1].cval,TRUE)), maybelistish(yyvsp[-2].ival,make_list(yyvsp[0].arg)), Nullarg); Safefree(yyvsp[-1].cval); yyvsp[-1].cval = Nullch; ; break;} case 176: #line 814 "perly.y" { yyval.arg = make_op(yyvsp[-2].ival,2, stab2arg(A_STAB,yyvsp[-1].stabval), maybelistish(yyvsp[-2].ival,make_list(yyvsp[0].arg)), Nullarg); ; break;} case 177: #line 819 "perly.y" { yyval.arg = make_op(yyvsp[-2].ival,2, cmd_to_arg(yyvsp[-1].cmdval), maybelistish(yyvsp[-2].ival,make_list(yyvsp[0].arg)), Nullarg); ; break;} case 178: #line 826 "perly.y" { yyval.arg = stab2arg(A_WORD,stabent(yyvsp[0].cval,TRUE)); Safefree(yyvsp[0].cval); yyvsp[0].cval = Nullch;; break;} case 180: #line 832 "perly.y" { yyval.arg = stab2arg(A_WORD,aadd(stabent(yyvsp[0].cval,TRUE))); Safefree(yyvsp[0].cval); yyvsp[0].cval = Nullch; ; break;} case 181: #line 835 "perly.y" { yyval.arg = stab2arg(A_STAB,yyvsp[0].stabval); ; break;} case 182: #line 839 "perly.y" { yyval.arg = stab2arg(A_WORD,hadd(stabent(yyvsp[0].cval,TRUE))); Safefree(yyvsp[0].cval); yyvsp[0].cval = Nullch; ; break;} case 183: #line 842 "perly.y" { yyval.arg = stab2arg(A_STAB,yyvsp[0].stabval); ; break;} case 184: #line 846 "perly.y" { yyval.ival = 1; ; break;} case 185: #line 848 "perly.y" { yyval.ival = 0; ; break;} case 186: #line 857 "perly.y" { char *s; yyval.arg = op_new(1); yyval.arg->arg_type = O_ITEM; yyval.arg[1].arg_type = A_SINGLE; yyval.arg[1].arg_ptr.arg_str = str_make(yyvsp[0].cval,0); for (s = yyvsp[0].cval; *s && isLOWER(*s); s++) ; if (dowarn && !*s) warn( "\"%s\" may clash with future reserved word", yyvsp[0].cval ); Safefree(yyvsp[0].cval); yyvsp[0].cval = Nullch; ; break;} } /* the action file gets copied in in place of this dollarsign */ #line 440 "bison.simple" yyvsp -= yylen; yyssp -= yylen; #ifdef YYLSP_NEEDED yylsp -= yylen; #endif #if YYDEBUG != 0 if (yydebug) { short *ssp1 = yyss - 1; fprintf (stderr, "state stack now"); while (ssp1 != yyssp) fprintf (stderr, " %d", *++ssp1); fprintf (stderr, "\n"); } #endif *++yyvsp = yyval; #ifdef YYLSP_NEEDED yylsp++; if (yylen == 0) { yylsp->first_line = yylloc.first_line; yylsp->first_column = yylloc.first_column; yylsp->last_line = (yylsp-1)->last_line; yylsp->last_column = (yylsp-1)->last_column; yylsp->text = 0; } else { yylsp->last_line = (yylsp+yylen-1)->last_line; yylsp->last_column = (yylsp+yylen-1)->last_column; } #endif /* Now "shift" the result of the reduction. Determine what state that goes to, based on the state we popped back to and the rule number reduced by. */ yyn = yyr1[yyn]; yystate = yypgoto[yyn - YYNTBASE] + *yyssp; if (yystate >= 0 && yystate <= YYLAST && yycheck[yystate] == *yyssp) yystate = yytable[yystate]; else yystate = yydefgoto[yyn - YYNTBASE]; goto yynewstate; yyerrlab: /* here on detecting error */ if (! yyerrstatus) /* If not already recovering from an error, report this error. */ { ++yynerrs; #ifdef YYERROR_VERBOSE yyn = yypact[yystate]; if (yyn > YYFLAG && yyn < YYLAST) { int size = 0; char *msg; int x, count; count = 0; for (x = 0; x < (sizeof(yytname) / sizeof(char *)); x++) if (yycheck[x + yyn] == x) size += strlen(yytname[x]) + 15, count++; msg = (char *) xmalloc(size + 15); strcpy(msg, "parse error"); if (count < 5) { count = 0; for (x = 0; x < (sizeof(yytname) / sizeof(char *)); x++) if (yycheck[x + yyn] == x) { strcat(msg, count == 0 ? ", expecting `" : " or `"); strcat(msg, yytname[x]); strcat(msg, "'"); count++; } } yyerror(msg); free(msg); } else #endif /* YYERROR_VERBOSE */ yyerror("parse error"); } yyerrlab1: /* here on error raised explicitly by an action */ if (yyerrstatus == 3) { /* if just tried and failed to reuse lookahead token after an error, discard it. */ /* return failure if at end of input */ if (yychar == YYEOF) YYABORT; #if YYDEBUG != 0 if (yydebug) fprintf(stderr, "Discarding token %d (%s).\n", yychar, yytname[yychar1]); #endif yychar = YYEMPTY; } /* Else will try to reuse lookahead token after shifting the error token. */ yyerrstatus = 3; /* Each real token shifted decrements this */ goto yyerrhandle; yyerrdefault: /* current state does not do anything special for the error token. */ #if 0 /* This is wrong; only states that explicitly want error tokens should shift them. */ yyn = yydefact[yystate]; /* If its default is to accept any token, ok. Otherwise pop it.*/ if (yyn) goto yydefault; #endif yyerrpop: /* pop the current state because it cannot handle the error token */ if (yyssp == yyss) YYABORT; yyvsp--; yystate = *--yyssp; #ifdef YYLSP_NEEDED yylsp--; #endif #if YYDEBUG != 0 if (yydebug) { short *ssp1 = yyss - 1; fprintf (stderr, "Error: state stack now"); while (ssp1 != yyssp) fprintf (stderr, " %d", *++ssp1); fprintf (stderr, "\n"); } #endif yyerrhandle: yyn = yypact[yystate]; if (yyn == YYFLAG) goto yyerrdefault; yyn += YYTERROR; if (yyn < 0 || yyn > YYLAST || yycheck[yyn] != YYTERROR) goto yyerrdefault; yyn = yytable[yyn]; if (yyn < 0) { if (yyn == YYFLAG) goto yyerrpop; yyn = -yyn; goto yyreduce; } else if (yyn == 0) goto yyerrpop; if (yyn == YYFINAL) YYACCEPT; #if YYDEBUG != 0 if (yydebug) fprintf(stderr, "Shifting error token, "); #endif *++yyvsp = yylval; #ifdef YYLSP_NEEDED *++yylsp = yylloc; #endif yystate = yyn; goto yynewstate; } #line 870 "perly.y" /* PROGRAM */